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We present simplified versions of the main files for Gabriel-Zisman localization (the only file 
which isn't included is updateA.v which contains things which should have gone in earlier parts of 
the set theory and category theory developments). All proofs are taken out, and also all comments 
have been removed. For proofs as well as the comments in their original form, see the actual Coq 
files which come with this posting (go to "Other formats" then "Source" on the abstract page). 
For a general discussion of the historical and little mathematical issues, for the bibliography, and 
for a more specific discussion of the present proof files, see the companion preprint "Explaining 
Gabriel-Zisman localization to the computer". The document below was generated by using coqdoc 
to create html files, cutting and pasting those together and editing the resulting text file, then using 
the "verbatim" environment for each module. 
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1. Instructions 

We recall here the basic instructions. Everything should compile under the current version of 
Coq, version 8.0 patch level 2. See http://coq.inria.fr/distrib-eng.html for downloading 
and installing the Coq proof assistant. 

The following instructions are for a Unix-like system. Installation, compilation and utilisation 
of large multiple-file projects in the Windows version of Coq has, for me at least, been problematic 
(it would be good if this could be improved in upcoming versions of Coq). 

Go to the http://arxiv.org website; then to the abstract page for the present preprint. From 
the abstract page, click on "Other formats" for other download types (rather than "ps" or "pdf"). 
At the bottom of the resulting page under the rubrique "Source", click on "Download source". 
This yields a tar arxive called 0506???. tar. gz (fill in the correct paper number); save it in the 
directory you wish to use, then decompact it using the commands 

gunzip 0506???. tar. gz 
tar -xvf 0506???. tar 

The next steps are reproduced here from the instructions in the Coq reference manual. First, create 
the makefile (if it isn't already present). 

coq_makefile -o Makefile *.v 

Now create a file called . depend and write into it the inter-file dependencies using the commands 

touch .depend 
make depend 

Subsequently if new files are added to the development, one should redo the command make depend. 
Now we are ready to compile everything! Type 

make all 

and you should get (quickly for the first two, then more slowly for the later files) the following list 



of compilations: 




coqc 


-q 


-i . 


axioms 


coqc 


-q 


-i . 


tactics 


coqc 


-q 


-i . 


set_theory 


coqc 


-q 


-i . 


functions 


coqc 


-q 


-i . 


notation 


coqc 


-q 


-i . 


universe 


coqc 


-q 


-i . 


order 


coqc 


-q 


-i . 


transf inite 


coqc 


-q 


-i . 


ordinal 


coqc 


-q 


-i . 


cardinal 


coqc 


-q 


-i . 


category 


coqc 


-q 


-i . 


functor 


coqc 


-q 


-i . 


nat_trans 


coqc 


-q 


-i . 


cat_examples 


coqc 


-q 


-i . 


limits 


coqc 


-q 


-i . 


colimits 


coqc 


-q 


-i . 


f unctor_cat 


coqc 


-q 


-i . 


f c_limits 


coqc 


-q 


-i . 


little_cat 


coqc 


-q 


-i . 


equalizer 
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coqc 


-q 


-i . 


f iprod 


coqc 


-q 


-i . 


updateA 


coqc 


-q 


-i . 


f reecat 


coqc 


-q 


-i . 


qcat 


coqc 


-q 


-i . 


gzdef 


coqc 


-q 


-i . 


lef t_f ractions 


coqc 


-q 


-i . 


gzloc 


coqc 


-q 


-i . 


infinite 


coqc 


-q 


-i . 


lfcx 



The directory now contains both the v files and the vo (i.e. compiled) files. The files can be usefully 
perused using coqide. Particularly useful is the Queries set of commands in coqide, allowing one 
to view important information from various files in useful chunks. 

The files which are new to the Gabriel-Zisman localization are the following: 
updateA. v 
f reecat . v 
qcat . v 
gzdef .v 

lef t_f ractions . v 
gzloc .v 
infinite .v 
If cx.v 

The other files are identical to the set-theory and category-theory development that was bundled 
with the previous preprint math. AG/0410224. 

The remainder of this paper is a listing of everything in the Gabriel-Zisman source files, except 
all the proofs and the totality of the first file updateA. v. This first file contains some things which 
logically would go with the earlier set-theory and category-theory files; we group them into a new 
"update" file in order to keep the earlier files identical to the previous version. 

For looking at the proofs it is better to use coqide, the Coq integrated development environment 
(which comes with Coq). For example to look at the file f reecat. v, do: 

coqide f reecat. v 

(or simply type coqide then open the file you want). In coqide you get a screen with the source 
file on the left, and the upper screen on the right is the proof goal window. Thus you can put the 
cursor in the middle of a proof, click on the "go here" button, and see the state of the proof at that 
point. Step through proofs with the "next step" button. Using these buttons requires having at 
least all of the previous files being compiled as per the instructions above — when coqide gets to a 
Require Export instruction typically at the start of the file, it looks for a compiled vo file. 
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2. The file freecat.v 



Library freecat 

Set Implicit Arguments. 

Unset Strict Implicit. 

Require Export updateA. 



2.1. The module Uple. 

Module Uple . 
Export UpdateA. 
Export Universe . 

Definition axioms a := 
Function. axioms a & 
inc (domain a) nat . 

Definition length a := Bnat (domain a). 

Definition create (f:nat -> E) (l:nat) := 
Function. create (R 1) (fun x => f (Bnat x) ) . 

Lemma domain_create : forall f 1, domain (create f 1) = R 1. 

Lemma length_create : forall f 1, length (create f 1) = 1. 

Definition component (i:nat) a := 
V (R i) a. 

Lemma component_create : forall f 1 i, 
i < 1 -> component i (create f 1) = f i. 

Lemma create_axioms : forall f 1, axioms (create f 1). 

Lemma eq_create : forall a, axioms a -> 

a = create (fun i => component i a) (length a) . 

Lemma compare_create : forall f g 1 m, 

1 = m -> (forall i, Peano.lt i 1 -> f i = g i) -> 

create f 1 = create g m. 

Lemma domain_emptyset : domain emptyset = emptyset . 
Lemma empty_axioms : axioms emptyset . 



Lemma length_emptyset : length emptyset = 0. 



GABRIEL-ZISMAN FILES 



Lemma create_length_zero : forall f , 
create f = emptyset . 

Lemma uple_extensionality : forall a b, 
axioms a -> axioms b -> 
length a = length b -> 

(forall i, i < (length a) -> component i a = component i b) - 
a=b. 

Definition concatenate a b := 
create (fun i => 

Y (i < (length a)) (component i a) 
(component (i - (length a)) b)) 
((length a) + (length b)). 

Lemma length_concatenate : forall a b, 

length (concatenate a b) = (length a) + (length b) . 

Lemma concatenate_axioms : forall a b, 
axioms (concatenate a b) . 

Lemma component_concatenate_f irst : forall a b i, 

i < (length a) -> component i (concatenate a b) = component i 

Lemma component_concatenate_second : forall a b i, 
i < (plus (length a) (length b)) -> 
(length a) <= i -> 

component i (concatenate a b) = component (i - (length a)) b. 

Lemma component_concatenate_plus : forall a b i, 
i < (length b) -> 

component ((length a) + i ) (concatenate a b) = component i b 

Lemma concatenate_emptyset_lef t : forall a, 
axioms a -> 

concatenate emptyset a = a. 

Lemma concatenate_emptyset_right : forall a, 
axioms a -> 

concatenate a emptyset = a. 

Lemma concatenate_assoc : forall a b c, 
concatenate a (concatenate b c) = 
concatenate (concatenate a b) c. 

Definition uplel x := 
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create (fun i:nat => x) 1. 



Lemma uplel_axioms : forall x, 
axioms (uplel x) . 



Lemma length_uplel : forall x, length (uplel x) = 1 . 

Lemma component_uplel : forall x i, 
i < 1 -> component i (uplel x) = x. 

Lemma eq_uplel : forall a x, 

axioms a -> length a = 1 -> x = component a -> 
a = uplel x. 

Definition utack x a := 
concatenate a (uplel x) . 

Lemma utack_axioms : forall a x, 
axioms a -> axioms (utack x a) . 



Lemma length_utack : forall a x, 

axioms a -> length (utack x a) = (length a) + 1 . 

Lemma domain_R_length : forall a, 
axioms a -> domain a = R (length a) . 

Lemma inc_R_domain : forall a i, 
axioms a -> 

inc (R i) (domain a) = (i < (length a)). 

Lemma component_utack_old : forall a x i, 

axioms a -> i < (length a) -> 

component i (utack x a) = component i a. 

Lemma component_utack_new : forall a x i, 
axioms a -> i = length a -> 
component i (utack x a) = x. 

Definition restrict a i := 

create (fun j => component j a) i . 

Lemma length_restrict : forall a i, 
length (restrict a i) = i. 

Lemma component_restrict : forall a i j , 

j < i -> component j (restrict a i) = component j a. 
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Lemma restrict_axioms : forall a i, 
axioms (restrict a i) . 

Lemma eq_utack_restrict : forall a, 
axioms a -> length a > -> 

a = utack (component (length a - 1) a) (restrict a (length a -1)). 
Definition uple_map (f :E ->E) u := 

Uple. create (fun i => f (component i u)) (length u) . 

Lemma length_uple_map : forall f u, 
length (uple_map f u) = length u. 

Lemma component_uple_map : forall f u i, 

i < length u -> component i (uple_map f u) = f (component i u) . 

Lemma axioms_uple_map : forall f u, axioms (uple_map f u) . 

Lemma uple_map_uplel : forall f u, 
uple_map f (uplel u) = uplel (f u) . 

Lemma uple_map_emptyset : forall f , 
uple_map f emptyset = emptyset . 

Lemma uple_map_concatenate : forall f u v, 

uple_map f (concatenate u v) = concatenate (uple_map f u) 

(uple_map f v) . 

End Uple . 

2.2. The module Graph. 

Module Graph. 
Export Uple . 

Definition Vertices := R (v_(r_(t_ DDT ))). 
Definition Edges := R (e_(d_(g_ DOT))). 

Definition vertices a := V Vertices a. 
Definition edges a := V Edges a. 

Definition create v e := 
denote Vertices v 
(denote Edges e stop) . 

Definition like a := a = create (vertices a) (edges a). 
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Lemma vertices_create : forall v e, vertices (create v e) =v. 

Lemma edges_create : forall v e, edges (create v e) = e. 

Lemma create_like : forall v e, like (create v e) . 

Lemma like_extensionality : forall a b, 

like a -> like b -> vertices a = vertices b -> 

edges a = edges b -> a = b. 

Definition axioms a := 
like a & 

(forall u, inc u (edges a) -> Arrow. like u) & 

(forall u, inc u (edges a) -> inc (source u) (vertices a) ) & 

(forall u, inc u (edges a) -> inc (target u) (vertices a)). 

Lemma axioms_extensionality : forall a b, 

axioms a -> axioms b -> vertices a = vertices b -> 

edges a = edges b -> a = b. 

End Graph. 



2.3. The module Free_Category. 

Module Free_Category . 
Export Graph. 

Definition segment (i:nat) u := 
component i (arrow u) . 

Definition seg_length u := 
length (arrow u) . 

Definition arrow_chain u := 

Arrow. like u & 

Uple. axioms (arrow u) & 

(0 < seg_length u -> source (segment u) = source u) & 
(0 < seg_length u -> 

target (segment (seg_length u -1) u) = target u) & 
(forall i, i+1 < seg_length u -> 
source (segment (i+1) u) = 
target (segment i u) ) & 

(seg_length u = -> source u = target u) . 

Definition mor_freecat a u := 
axioms a & 

inc (source u) (vertices a) & 
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inc (target u) (vertices a) & 
arrow_chain u & 
(forall i, i < seg_length u -> 
inc (segment i u) (edges a)). 

Definition vertex_uple u := 
concatenate 

(Uple. create (fun i => source (segment i u) ) (seg_length u)) 
(uplel (target u)). 

Definition vertex_uple' u := 
concatenate (uplel (source u) ) 

(Uple. create (fun i => target (segment i u) ) (seg_length u)). 

Lemma length_vertex_uple : forall u, 
length (vertex_uple u) = seg_length u + 1 . 

Lemma length_vertex_uple ' : forall u, 
length (vertex_uple ' u) = seg_length u + 1. 

Lemma vertex_uples_same : forall u, 

arrow_chain u -> 

vertex_uple u = vertex_uple ) u. 

Definition freecat_comp u v := 
Arrow. create (source v) (target u) 
(concatenate (arrow v) (arrow u)). 

Lemma seg_length_f reecat_comp : forall u v, 

seg_length (f reecat_comp u v) = seg_length u + seg_length v. 

Lemma segment_f reecat_comp_f irst : forall u v i, 
i < seg_length v -> segment i (f reecat_comp u v) 
= segment i v. 

Lemma segment_f reecat_comp_second : forall u v i, 
seg_length v <= i -> i < seg_length u + seg_length v -> 
segment i (f reecat_comp u v) = 
segment (i -seg_length v) u. 

Definition freecat_id x := 
Arrow. create x x emptyset . 

Lemma seg_length_f reecat_id : forall x, 
seg_length (freecat_id x) = 0. 
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Lemma arrow_chain_extensionality : forall u v, 

arrow_chain u -> arrow_chain v -> 

seg_length u = seg_length v -> 

source u = source v -> target u = target v -> 

(forall i, i< seg_length u -> segment i u = segment i v) -> 

u = v. 

Definition freecat_edge b := 

Arrow. create (source b) (target b) (uplel b) . 

Lemma seg_length_f reecat_edge : forall b, 
seg_length (f reecat_edge b) = 1 . 

Lemma segment_f reecat_edge : forall b i, 
i = -> segment i (f reecat_edge b) = b. 

Lemma source_f irst_segment : forall u i, 
arrow_chain u -> < seg_length u -> i = -> 
source (segment i u) = source u. 

Lemma target_last_segment : forall u i, 
arrow_chain u -> < seg_length u -> 
i = seg_length u - 1 -> 
target (segment i u) = target u. 

Lemma eq_f reecat_edge : forall u x, 
arrow_chain u -> seg_length u = 1 -> 
x = (segment u) -> 
u = freecat_edge x. 

Lemma source_f reecat_id : forall x, 
source (freecat_id x) = x. 

Lemma target_f reecat_id : forall x, 
target (freecat_id x) = x. 

Lemma source_f reecat_edge : forall b, 
source (f reecat_edge b) = source b. 

Lemma target_f reecat_edge : forall b, 
target (f reecat_edge b) = target b. 

Lemma source_f reecat_comp : forall u v, 
source (f reecat_comp u v) = source v. 

Lemma target_f reecat_comp : forall u v, 
target (f reecat_comp u v) = target u. 
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Lemma arrow_f reecat_id : forall x, 
arrow (freecat_id x) = emptyset . 

Lemma arrow_f reecat_edge : forall b, 
arrow (f reecat_edge b) = uplel b. 

Lemma arrow_f reecat_comp : forall u v, 
arrow (f reecat_comp u v) = 
concatenate (arrow v) (arrow u) . 

Lemma arrow_chain_f reecat_id : forall x, 
arrow_chain (freecat_id x) . 

Lemma eq_f reecat_id : forall u, 
arrow_chain u -> seg_length u = -> 
u = f reecat_id (source u) . 

Lemma arrow_chain_f reecat_edge : forall b, 
arrow_chain (f reecat_edge b) . 

Lemma arrow_chain_f reecat_comp : forall u v, 
arrow_chain u -> arrow_chain v -> source u = target v -> 
arrow_chain (f reecat_comp u v) . 

Lemma f reecat_assoc : forall u v w, 
freecat_comp u (f reecat_comp v w) = 
freecat_comp (f reecat_comp u v) w. 

Lemma f reecat_lef t_id J : forall u x, 

Arrow. like u -> x = target u -> Uple. axioms (arrow u) -> 
freecat_comp (freecat_id x) u = u. 

Lemma f reecat_right_id ) : forall u x, 

Arrow. like u -> x = source u -> Uple. axioms (arrow u) -> 
freecat_comp u (freecat_id x) = u. 

Lemma f reecat_lef t_id : forall u x, 
arrow_chain u -> x = target u -> 
freecat_comp (freecat_id x) u = u. 

Lemma f reecat_right_id : forall u x, 
arrow_chain u -> x = source u -> 
freecat_comp u (freecat_id x) = u. 

Lemma uples_contained : forall b u, 
Uple. axioms u -> 
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(forall i, i<length u -> inc (component i u) b) -> 
inc u (powerset (Cartesian. product nat b) ) . 

Lemma mor_f reecat_f rom_set : forall a u, 
mor_freecat a u -> 
inc u (Image . create 

(product (product (vertices a) (vertices a)) 
(powerset (product nat (edges a)))) 

(fun x => Arrow. create (prl (prl x) ) (pr2 (prl x)) (pr2 x) ) ) . 

Lemma mor_f reecat_bounded : forall a, 
Bounded. axioms (mor_freecat a). 

Definition f reecat_morphisms a := 
Bounded. create (mor_freecat a). 

Lemma inc_f reecat_morphisms : forall a u, 

inc u (f reecat_morphisms a) = mor_freecat a u. 

Definition freecat a := 
Category .Notations . create 

(vertices a) (f reecat_morphisms a) freecat_comp freecat_id 
emptyset . 

Lemma is_mor_f reecat : forall a u, 
is_mor (freecat a) u = mor_f reecat a u. 

Lemma is_ob_f reecat : forall a x, 

is_ob (freecat a) x = inc x (vertices a) . 

Lemma comp_f reecatl : forall a u v, 
mor_freecat a u -> mor_freecat a v -> 
source u = target v -> 

comp (freecat a) u v = freecat_comp u v. 

Lemma id_freecatl : forall a x, 

inc x (vertices a) -> 

id (freecat a) x = freecat_id x. 

Lemma structure_f reecat : forall a, 
structure (freecat a) = emptyset. 

Lemma mor_f reecat_id : forall a x, 
inc x (vertices a) -> axioms a -> 
mor_freecat a (freecat_id x) . 

Lemma mor_f reecat_comp : forall a u v, 
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mor_freecat a u -> mor_freecat a v -> 

source u = target v -> 

mor_f reecat a (f reecat_comp u v) . 

Lemma mor_f reecat_edge : forall a u, 
axioms a -> inc u (edges a) -> 
mor_freecat a (f reecat_edge u) . 

Lemma f reecat_axioms : forall a, 

axioms a -> Category . axioms (f reecat a). 

Lemma mor_f reecat_rw : forall a u, 
Graph. axioms a -> 

mor (f reecat a) u = mor_f reecat a u. 

Lemma ob_f reecat_rw : forall a x, 
Graph. axioms a -> 

ob (f reecat a) x = inc x (vertices a) . 

Lemma id_f reecat : forall a x, 
Graph. axioms a -> ob (f reecat a) x -> 
id (f reecat a) x = freecat_id x. 

Lemma comp_f reecat : forall a u v, 
Graph. axioms a -> mor (f reecat a) u -> 
mor (freecat a) v -> source u = target v -> 
comp (freecat a) u v = freecat_comp u v. 

Definition mor_chain a u := 

arrow_chain u & 

Category. axioms a & 

ob a (source u) & ob a (target u) & 

(forall i, i< (seg_length u) -> mor a (segment i u) 

Lemma mor_chain_f reecat_id : forall a x, 
ob a x -> mor_chain a (freecat_id x) . 

Lemma mor_chain_f reecat_comp : forall a u v, 
mor_chain a u -> mor_chain a v -> 

source u = target v -> mor_chain a (f reecat_comp u 

Lemma mor_chain_f reecat_edge : forall a u, 
mor a u -> mor_chain a (f reecat_edge u) . 

Definition chain_tack u v := 
freecat_comp (f reecat_edge u) v. 
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Lemma arrow_chain_chain_tack : forall u v, 
arrow_chain v -> 

source u = target v -> arrow_chain (chain_tack u v) . 

Lemma source_chain_tack : forall u v, 
source (chain_tack u v) = source v. 

Lemma target_chain_tack : forall u v, 
target (chain_tack u v) = target u. 

Lemma arrow_chain_tack : forall u v, 

arrow (chain_tack u v) = utack u (arrow v) . 

Lemma seg_length_chain_tack : forall u v, 
seg_length (chain_tack u v) = seg_length v + 1. 

Lemma segment_chain_tack_old : forall u v i, 
i < seg_length v -> 

segment i (chain_tack u v) = segment i v. 

Lemma segment_chain_tack_new : forall u v i, 

i = seg_length v -> 

segment i (chain_tack u v) = u. 

Lemma mor_chain_chain_tack : forall a u v, 
mor_chain a v -> mor a u -> 

source u = target v -> mor_chain a (chain_tack u v) . 
Definition object_number i u := 

Y (i< seg_length u) (source (segment i u) ) (target u) . 

Lemma object_number_zero : forall u, 
arrow_chain u -> object_number u = source u. 

Lemma object_number_seg_length : forall u , 

arrow_chain u -> object_number (seg_length u) u = target u. 

Lemma source_segment : forall i u, 
arrow_chain u -> i < seg_length u -> 
source (segment i u) = object_number i u. 

Lemma target_ segment : forall i u, 

arrow_chain u -> i < seg_length u -> 

target (segment i u) = object_number (i+1) u. 

Definition chain_restrict i u := 

Arrow. create (source u) (object_number i u) 
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(restrict (arrow u) i) . 

Lemma source_chain_restrict : forall i u, 
source (chain_restrict i u) = source u. 

Lemma target_chain_restrict : forall i u, 
target (chain_restrict i u) = object_number i u. 

Lemma seg_length_chain_restrict : forall i u, 
seg_length (chain_restrict i u) = i. 

Lemma segment_chain_restrict : forall i j u, 
j < i -> 

segment j (chain_restrict i u) = segment j u. 

Lemma arrow_chain_chain_restrict : forall i u, 
arrow_chain u -> i <= seg_length u -> 
arrow_chain (chain_restrict i u) . 

Lemma chain_restrict_ref 1 : forall u, 
arrow_chain u -> 

chain_restrict (seg_length u) u = u. 

Lemma eq_chain_tack_restrict : forall u, 
arrow_chain u -> seg_length u > -> 
u = chain_tack (segment (seg_length u - 1) u) 
(chain_restrict (seg_length u - 1) u) . 

Lemma arrow_chain_induction : forall (P:E->Prop), 
(forall x, P (freecat_id x)) -> 

(forall u v, arrow_chain v -> source u = target v -> 
P v -> P (chain_tack u v)) -> 
(forall y, arrow_chain y -> P y) . 

Lemma mor_chain_chain_restrict : forall a u i, 
mor_chain a u -> i <= seg_length u -> 
mor_chain a (chain_restrict i u) . 

Lemma chain_restrict_chain_tack : forall u v i, 

i = seg_length v -> arrow_chain v -> 

source u = target v -> 

chain_restrict i (chain_tack u v) = v. 

Lemma mor_chain_induction : forall a (P:E->Prop), 

(forall x, ob a x -> P (freecat_id x)) -> 

(forall u v, mor_chain a v -> mor a u -> 

source u = target v -> P v -> P (chain_tack u v) ) -> 
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(forall y, mor_chain a y -> P y) . 
Definition compose_chain a u := 

iterate (seg_length u) (fun i v => comp a (segment i u) 
(id a (source u) ) . 

Lemma compose_chain_f reecat_id : forall a x, 
compose_chain a (freecat_id x) = id a x. 

Lemma compose_chain_chain_tack : forall a u v, 
compose_chain a (chain_tack u v) = 
comp a u (compose_chain a v) . 

Lemma compose_chain_f reecat_edge : forall a u, 
mor a u -> compose_chain a (f reecat_edge u) = u. 

Definition compose_chain_f acts a u := 
mor_chain a u & 

source (compose_chain a u) = source u & 
target (compose_chain a u) = target u & 
mor a (compose_chain a u) . 

Lemma compose_chain_f acts_compose_chain : forall a u, 
mor_chain a u -> compose_chain_f acts a u. 

Lemma source_compose_chain : forall a u, 

mor_chain a u -> source (compose_chain a u) = source u. 

Lemma target_compose_chain : forall a u, 

mor_chain a u -> target (compose_chain a u) = target u. 

Lemma mor_compose_chain : forall a u, mor_chain a u -> 
mor a (compose_chain a u) . 

Lemma f reecat_comp_chain_tack : forall y u v, 
freecat_comp (chain_tack y u) v = 
chain_tack y (f reecat_comp u v) . 

Lemma compose_chain_f reecat_comp : forall a u v, 

mor_chain a u -> mor_chain a v -> 

source u = target v -> 

compose_chain a (f reecat_comp u v) = 

comp a (compose_chain a u) (compose_chain a v) . 

Definition chain_map (fo : E -> E) (fa:E -> E) u := 
Arrow. create 

(fo (source u)) (fo (target u)) (uple_map fa (arrow u)) 
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Lemma source_chain_map : forall fo fa u, 
source (chain_map f o fa u) = f o (source u) . 

Lemma target _chain_map : forall fo fa u, 
target (chain_map f o fa u) = f o (target u) . 

Lemma arrow_chain_map : forall fo fa u, 

arrow (chain_map f o fa u) = uple_map fa (arrow u) . 

Lemma seg_length_chain_map : forall fo fa u, 
seg_length (chain_map fo fa u) = seg_length u. 

Lemma segment_chain_map : forall fo fa u i, 

i < seg_length u -> segment i (chain_map fo fa u) 

= f a (segment i u) . 

Lemma arrow_chain_chain_map : forall fo fa u, 
arrow_chain u -> 

(forall i, i<seg_length u -> fo (source (segment i u)) 
source (fa (segment i u))) -> 

(forall i, i<seg_length u -> fo (target (segment i u)) 
target (fa (segment i u))) -> 
arrow_chain (chain_map f o fa u) . 

Lemma chain_map_f reecat_id : forall fo fm x, 
chain_map f o fm (freecat_id x) = freecat_id (f o x) . 

Lemma chain_map_f reecat_edge : forall fo fm u, 
source (fm u) = fo (source u) -> 
target (fm u) = fo (target u) -> 

chain_map f o fm (f reecat_edge u) = freecat_edge (fm u) . 

Lemma chain_map_f reecat_comp : forall fo fm u v, 

chain_map fo fm (f reecat_comp u v) = 

freecat_comp (chain_map f o fm u) (chain_map f o fm v) . 

Lemma chain_map_chain_tack : forall fo fm u v, 
target (fm u) = fo (target u) -> 
chain_map fo fm (chain_tack u v) = 
chain_tack (fm u) (chain_map f o fm v) . 

Definition free_functor g a fo fm := 
Functor . create (freecat g) a (fun u => 
(compose_chain a (chain_map fo fm u))). 

Definition f ree_f unctor_property g a fo fm := 
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Graph. axioms g & 
Category . axioms a & 

(forall x, inc x (vertices g) -> ob a (fo x) ) & 
(forall u, inc u (edges g) -> mor a (fm u) ) & 

(forall u, inc u (edges g) -> source (fm u) = fo (source u)) & 
(forall u, inc u (edges g) -> target (fm u) = fo (target u)). 

Lemma source_f ree_f unctor : forall g a fo fm, 
source (free_f unctor g a fo fm) = freecat g. 

Lemma target_free_f unctor : forall g a fo fm, 
target (free_f unctor g a fo fm) = a. 

Lemma fmor_free_f unctor : forall g a fo fm u, 
Graph. axioms g -> 

mor_freecat g u -> fmor (free_f unctor g a fo fm) u = 
(compose_chain a (chain_map fo fm u) ) . 

Lemma mor_chain_chain_map : forall g a fo fm u, 
f ree_f unctor_property g a fo fm -> 
mor_freecat g u -> 
mor_chain a (chain_map fo fm u) . 

Lemma fob_free_f unctor : forall g a fo fm x, 
f ree_f unctor_property g a fo fm -> 
inc x (vertices g) -> 

fob (free_f unctor g a fo fm) x = fo x. 

Lemma f ree_functor_axioms : forall g a fo fm, 
f ree_f unctor_property g a fo fm -> 
Functor . axioms (free_f unctor g a fo fm) . 

Lemma fmor_f f _f reecat_id : forall g a fo fm x, 
f ree_f unctor_property g a fo fm -> 
inc x (vertices g) -> 

fmor (free_f unctor g a f o fm) (freecat_id x) = id a (f o x) . 

Lemma fmor_f f _f reecat_edge : forall g a fo fm u, 
f ree_f unctor_property g a fo fm -> 
inc u (edges g) -> 

fmor (free_f unctor g a fo fm) (f reecat_edge u) = fm u. 

Lemma fmor_comp : forall a f u v, 
Functor . axioms f -> source f = a -> 
mor a u -> mor a v -> 
source u = target v -> 

fmor f (comp a u v) = comp (target f ) (fmor f u) (fmor f v) . 
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Lemma fmor_f f _f reecat_comp : forall g a fo fm u v, 
f ree_f unctor_property g a fo fm -> 
mor (freecat g) u -> 
mor (freecat g) v -> 
source u = target v -> 

fmor (f ree_f unctor g a fo fm) (f reecat_comp u v) = 
comp a (fmor (free_f unctor g a fo fm) u) 
(fmor (f ree_functor g a f o fm) v) . 

Lemma fmor_f f _chain_tack : forall g a fo fm u v, 
f ree_f unctor_property g a fo fm -> 
inc u (edges g) -> 

mor (freecat g) v -> source u = target v -> 
fmor (free_f unctor g a fo fm) (chain_tack u v) = 
comp a (fm u) (fmor (free_f unctor g a f o fm) v) . 

Lemma f ree_functor_property_f ob_fmor : forall g a f, 
Functor . axioms f -> Graph. axioms g -> 
source f = freecat g -> target f = a -> 
f ree_f unctor_property g a (fob f) 
(fun u => fmor f (f reecat_edge u)). 

Definition graph_fmor g f y := 
fmor (free_f unctor g (target f) (fob f) 
(fun u => fmor f (f reecat_edge u))) y. 

Lemma graph_fob : forall g f x, 
Graph. axioms g -> source f = freecat g 
Functor . axioms f -> inc x (vertices g) 
fob (free_f unctor g (target f) (fob f) 
(fun u => fmor f (f reecat_edge u))) x 

Definition graph_fmor_recovers g f y := 
graph_fmor g f y = fmor f y. 

Lemma graph_fmor_recovers_f reecat_id : forall g f x, 
Graph. axioms g -> source f = freecat g -> 
Functor . axioms f -> inc x (vertices g) -> 
graph_fmor_recovers g f (f reecat_id x) . 

Lemma graph_fmor_recovers_f reecat_edge : forall g f u, 
Graph. axioms g -> source f = freecat g -> 
Functor . axioms f -> inc u (edges g) -> 
graph_fmor_recovers g f (f reecat_edge u) . 

Lemma graph_fmor_recovers_f reecat_comp : forall g f u v, 



-> 
-> 

= fob f x. 
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Graph. axioms g -> source f = freecat g -> 

Functor . axioms f -> mor_f reecat g u -> mor_f reecat g v -> 

source u = target v -> 

graph_fmor_recovers g f u -> graph_fmor_recovers g f v -> 
graph_fmor_recovers g f (f reecat_comp u v) . 

Lemma graph_fmor_recovers_chain_tack : forall g f u v, 

Graph. axioms g -> source f = freecat g -> 

Functor . axioms f -> inc u (edges g) -> mor_f reecat g v -> 

source u = target v -> 

graph_fmor_recovers g f v -> 

graph_fmor_recovers g f (chain_tack u v) . 

Lemma inc_object_number_vertices : forall g u i, 
Graph. axioms g -> mor_f reecat g u -> 

i <= seg_length u -> inc (object_number i u) (vertices g) . 

Lemma mor_f reecat_chain_restrict : forall g u i, 
Graph. axioms g -> mor_f reecat g u -> 

i <= seg_length u -> mor_freecat g (chain_restrict i u) . 

Lemma mor_f reecat_induction : forall g (P : E -> Prop) , 
Graph. axioms g -> 

(forall x, inc x (vertices g) -> P (freecat_id x) ) -> 
(forall u v, inc u (edges g) -> mor_f reecat g v -> 
source u = target v -> P v -> P (chain_tack u v) ) -> 
(forall u, mor_freecat g u -> P u) . 

Lemma graph_fmor_recovers_all : forall g f u, 
Graph. axioms g -> source f = freecat g -> 
Functor . axioms f -> mor_f reecat g u -> 
graph_fmor_recovers g f u. 

Lemma eq_f ree_f unctor_f ob_fmor : forall g f , 
Graph. axioms g -> source f = freecat g -> 
Functor . axioms f -> 

f = free_functor g (target f) (fob f) 
(fun u => fmor f (f reecat_edge u)). 

Definition f ree_nt_property g a b (t:E -> E) := 
Graph. axioms g & Functor . axioms a & Functor . axioms b 
& source a = freecat g 
& source b = freecat g 
& target a = target b & 

(forall x, inc x (vertices g) -> mor (target a) (t x)) & 
(forall x, inc x (vertices g) -> source (t x) = fob a x) & 
(forall x, inc x (vertices g) -> target (t x) = fob b x) & 
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(forall u, inc u (edges g) -> 

comp (target a) (t (target u) ) (fmor a (f reecat_edge u)) 
comp (target a) (fmor b (f reecat_edge u)) (t (source u))) 

Definition f ree_nt_respects a b (t:E->E) u := 
comp (target a) (t (target u) ) (fmor a u) = 
comp (target a) (fmor b u) (t (source u)). 

Lemma f ree_nt_respects_f reecat_id : forall g a b t x, 

f ree_nt_property g a b t -> 

inc x (vertices g) -> 

f ree_nt_respects a b t (freecat_id x) . 

Lemma f ree_nt_respects_f reecat_edge : forall g a b t u, 
f ree_nt_property g a b t -> 
inc u (edges g) -> 

f ree_nt_respects a b t (f reecat_edge u) . 

Lemma f ree_nt_respects_f reecat_comp : forall g a b t u v, 
f ree_nt_property g a b t -> 

mor_freecat g u -> mor_f reecat g v -> source u = target v 

f ree_nt_respects a b t u -> 

f ree_nt_respects a b t v -> 

f ree_nt_respects a b t (f reecat_comp u v) . 

Lemma f ree_nt_respects_chain_tack : forall g a b t u v, 

f ree_nt_property g a b t -> inc u (edges g) -> 

mor_freecat g v -> source u = target v -> 

f ree_nt_respects a b t v -> 

f ree_nt_respects a b t (chain_tack u v) . 

Lemma f ree_nt_respects_all : forall g a b t u, 

f ree_nt_property g a b t -> 

mor_freecat g u -> 

f ree_nt_respects a b t u. 

Lemma f ree_nt_nat_trans_property : forall g a b t, 
f ree_nt_property g a b t -> Nat _Trans .property a b t. 

Lemma f ree_nt_prop_eq_nat_trans_prop : forall g a b t, 

Graph. axioms g -> source a = f reecat g -> 

f ree_nt_property g a b t = Nat_Trans .property a b t. 

Lemma f ree_nt_property_ntrans : forall g r, 
Graph. axioms g -> Nat_Trans . axioms r -> 
osource r = freecat g -> 

f ree_nt_property g (source r) (target r) (ntrans r) . 
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End Free_Category . 
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3. The file qcat.v 



Require Export updateA. 



3.1. The module Categorical_Relation. 

Module Categorical_Relation. 
Export UpdateA. 
Export Category. 



Definition cat_rel a r := 
Category. axioms a & 
is_relation r & 

(forall x y, related r x y 

(forall x y, related r x y 

(forall x y, related r x y 

(forall x y, related r x y 



-> mor a x) & 

-> mor a y) & 

-> source x = source y) 

-> target x = target y) . 



Definition cat_equiv_rel a r := 
cat_rel a r & 

is_equivalence_relation r & 

(forall u, mor a u -> related r u u) & 

(forall x y u v, related r x y -> related r u v -> 

source x = target u -> 

related r (comp a x u) (comp a y v)). 

Lemma cat_rel_related_rw : forall a r x y, 
cat_rel a r -> 
related r x y = 

(related r x y & mor a x & mor a y & 
source x = source y & target x = target y) . 

Lemma cer_ref lexive : forall a r u, 
cat_equiv_rel a r -> mor a u -> related r u u. 

Lemma related_comp : forall a r x y u v, 
cat_equiv_rel a r -> 

related r x y -> related r u v -> source x = target 
related r (comp a x u) (comp a y v) . 

Lemma cat_rel_intersection : forall a z, 
nonempty z -> 

(forall r, inc r z -> cat_rel a r) -> 
cat_rel a (intersection z) . 

Lemma cer_intersection : forall a z, 
nonempty z -> 
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(forall r, inc r z -> cat_equiv_rel a r) -> 
cat_equiv_rel a (intersection z) . 

Definition coarse a := 

Z (Cartesian. product (morphisms a) (morphisms 
(fun u => (source (prl u) = source (pr2 u) & 
target (prl u) = target (pr2 u))). 

Lemma related_coarse : forall a x y, 
Category. axioms a -> 

related (coarse a) x y = (mor a x & mor a y & 
source x = source y & target x = target y) . 

Lemma cat_rel_coarse : forall a, 
Category. axioms a -> 
cat_rel a (coarse a) . 

Lemma cat_equiv_rel_coarse : forall a, 
Category. axioms a -> 
cat_equiv_rel a (coarse a) . 

Lemma sub_coarse : forall a r, 
cat_rel a r -> 
sub r (coarse a) . 

Definition relations_between r s := 
Z (powerset s) (fun y => sub r y) . 

Lemma inc_relations_between : forall r s y, 

is_relation s -> 

inc y (relations_between r s) = 

(sub r y & sub y s & is_relation y) . 

Definition cer a r := 

intersection (Z (relations_between r (coarse 
(fun y=> cat_equiv_rel ay)). 

Lemma cat_equiv_rel_cer : forall a r, 
cat_rel a r -> cat_equiv_rel a (cer a r) . 

Lemma cat_rel_subset : forall a r, 
(exists s, (cat_rel a s & sub r s)) -> 
cat_rel a r. 

Lemma sub_cer : forall a r s, 
sub r s -> cat_equiv_rel a s -> 
sub (cer a r) s. 
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Lemma cer_contains : forall a r, 
cat_rel a r -> sub r (cer a r) . 

Definition ker f := 

Z (coarse (source f)) (fun z => (fmor f (prl z) = fmor f (pr2 z))). 

Lemma related_ker : forall f x y, 

Functor . axioms f -> 

related (ker f) x y = 

(mor (source f) x & mor (source f) y & 

source x = source y & target x = target y & fmor f x = fmor f y) . 

Lemma is_relation_ker : forall f, Functor . axioms f -> 
is_relation (ker f ) . 

Lemma cat_rel_ker : forall a f, 
Functor . axioms f -> a = source f -> 
cat_rel a (ker f ) . 

Lemma cat_equiv_rel_ker : forall a f, 
Functor . axioms f -> a = source f -> 
cat_equiv_rel a (ker f ) . 

Definition compatible r f := 

Functor . axioms f & cat_rel (source f) r & 

sub r (ker f ) . 

Lemma compatible_related_ker : forall r f u v, 
compatible r f -> related r u v -> related (ker f) u v. 

Lemma related_eq_fmor : forall r f u v, 

compatible r f -> related r u v -> fmor f u = fmor f v. 

Lemma is_relation_coarse : forall a, 
Category . axioms a -> is_relation (coarse a). 

Lemma compatible_cer : forall a r f, 
compatible r f -> a = source f -> 
compatible (cer a r) f . 

Lemma compatible_rw : forall r f, 
compatible r f = 

(Functor . axioms f & cat_rel (source f) r & 

(forall x y, related r x y -> fmor f x = fmor f y)). 

End Categorical_Relation. 
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3.2. The module Quotient_Category. 

Module Quotient_Category . 
Export Categorical_Relation. 

Definition arrow_class r u := 

Arrow. create (source u) (target u) (class r u) . 

Lemma source_arrow_class : forall r u, 
source (arrow_class r u) = source u. 

Lemma target_arrow_class : forall r u, 
target (arrow_class r u) = target u. 

Lemma arrow_arrow_class : forall r u, 
arrow (arrow_class r u) = class r u. 

Lemma inc_arrow_arrow_class : forall a r u v, 

cat_equiv_rel a r -> mor a v -> 

inc v (arrow (arrow_class r u)) = related r u v. 

Lemma like_arrow_class : forall r u, 
Arrow. like (arrow_class r u) . 

Definition is_quotient_arrow a r u := 
cat_equiv_rel a r & 

(exists y, mor a y & u = arrow_class r y) . 

Lemma is_quotient_arrow_arrow_class : forall a r u, 
cat_equiv_rel a r -> mor a u -> 
is_quotient_arrow a r (arrow_class r u) . 

Definition quotient_morphisms a r := 
Image. create (morphisms a) (arrow_class r) . 

Lemma inc_quotient_morphisms : forall a r u, 
cat_equiv_rel a r -> 

inc u (quotient_morphisms a r) = is_quotient_arrow a r u. 

Lemma related_arrow_class_eq : forall a r u v, 
cat_equiv_rel a r -> 
mor a u -> 
related r u v = 

(arrow_class r u = arrow_class r v) . 
Definition arrow_rep v := rep (arrow v) . 
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Lemma inc_arrow_class_ref 1 : forall a r u, 

cat_equiv_rel a r -> mor a u -> inc u (arrow (arrow_class r 

Lemma nonempty_arrow : forall a r u, 
is_quotient_arrow a r u -> 
nonempty (arrow u) . 

Lemma inc_arrow_rep_arrow : forall a r u, 
is_quotient_arrow a r u -> 
inc (arrow_rep u) (arrow u) . 

Lemma related_arrow_rep_arrow_class : forall a r u, 

cat_equiv_rel a r -> mor a u -> 

related r u (arrow_rep (arrow_class r u)). 

Lemma source_arrow_rep : forall a r u, 

is_quotient_arrow a r u -> source (arrow_rep u) = source u. 
Lemma target_arrow_rep : forall a r u, 

is_quotient_arrow a r u -> target (arrow_rep u) = target u. 

Lemma arrow_class_arrow_rep : forall a r u, 
is_quotient_arrow a r u -> 
arrow_class r (arrow_rep u) = u. 

Lemma inc_arrow_f acts : forall a r u y, 
is_quotient_arrow a r u -> inc y (arrow u) 
(mor a y & source y = source u & target y 

Lemma mor_arrow_rep : forall a r u, 
is_quotient_arrow a r u -> 
mor a (arrow_rep u) . 

Lemma related_arrow_rep : forall a r u v, 
cat_equiv_rel a r -> mor a v -> u = arrow_class r v -> 
related r v (arrow_rep u) . 

Lemma related_arrow_rep_rw : forall a r u v, 
cat_equiv_rel a r -> is_quotient_arrow a r u -> mor a v -> 
related r v (arrow_rep u) = (u = arrow_class r v) . 

Definition quot_id a r x := 
arrow_class r (id a x) . 

Definition quot_comp a r u v := 

arrow_class r (comp a (arrow_rep u) (arrow_rep v) ) . 



-> 

= target u) . 



28 



C. SIMPSON 



Lemma source_quot_id : forall a r x, 
ob a x -> 

source (quot_id a r x) = x. 



Lemma target_quot_id : forall a r x, 
ob a x -> 

target (quot_id a r x) = x. 

Lemma source_quot_comp : forall a r u v, 
cat_equiv_rel a r -> 
is_quotient_arrow a r u -> 

is_quotient_arrow a r v -> source u = target v -> 
source (quot_comp a r u v) = source v. 



Lemma target_quot_comp : forall a r u v, 
cat_equiv_rel a r -> 
is_quotient_arrow a r u -> 

is_quotient_arrow a r v -> source u = target v -> 
target (quot_comp a r u v) = target u. 



Lemma is_quotient_arrow_quot_id : forall a r x, 
cat_equiv_rel a r -> ob a x -> 
is_quotient_arrow a r (quot_id a r x) . 

Lemma is_quotient_arrow_quot_comp : forall a r u v, 
cat_equiv_rel a r -> is_quotient_arrow a r u -> 
is_quotient_arrow a r v -> source u = target v -> 
is_quotient_arrow a r (quot_comp a r u v) . 



Lemma arrow_class 
cat_equiv_rel a r 
(arrow_class r u : 
(related r u v) . 



eq : forall a r u v, 
-> mor a u -> 
arrow_class r v) = 



Lemma arrow_class_id : forall a r x, 
arrow_class r (id a x) = quot_id a r x. 



Lemma quot_comp_arrow_class : forall a r u v, 

cat_equiv_rel a r -> mor a u -> mor a v -> source u = target v -> 
quot_comp a r (arrow_class r u) (arrow_class r v) = 
arrow_class r (comp a u v) . 



Lemma quot_id_left : forall a r a' r' x u, 
cat_equiv_rel a r -> is_quotient_arrow a r u -> 
x = target u -> a' = a -> r' = r -> 
quot_comp a r (quot_id a' r' x) u = u. 
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Lemma quot_id_right : forall a r a' r' x u, 
cat_equiv_rel a r -> is_quotient_arrow a r u -> 
x = source u -> a' = a -> r' = r -> 
quot_comp a r u (quot_id a' r' x) = u. 

Lemma quot_comp_assoc : forall a r a' r' u v w, 
cat_equiv_rel a r -> is_quotient_arrow a r u -> 
is_quotient_arrow a r v -> 

is_quotient_arrow a r w -> source u = target v -> 
source v = target w -> a' = a -> r' = r -> 
quot_comp a r (quot_comp a' r' u v) w = 
quot_comp a r u (quot_comp a' r' v w) . 

Definition quotient_cat a r := Category .Notations . create (objects 
(quotient_morphisms a r) (quot_comp a r) (quot_id a r) (structure 

Lemma is_ob_quotient_cat : forall a r x, 
is_ob (quotient_cat a r) x = is_ob a x. 

Lemma is_mor_quotient_cat : forall a r u, 
cat_equiv_rel a r -> 

is_mor (quotient_cat a r) u = is_quotient_arrow a r u. 

Lemma comp_quotient_cat : forall a r u v, 
cat_equiv_rel a r -> is_quotient_arrow a r u -> 
is_quotient_arrow a r v -> 
source u = target v -> 

comp (quotient_cat a r) u v = quot_comp a r u v. 

Lemma id_quotient_cat : forall a r x, 

cat_equiv_rel a r -> ob a x -> 

id (quotient_cat a r) x = quot_id a r x. 

Lemma quotient_cat_axioms : forall a r, 

cat_equiv_rel a r -> 

Category . axioms (quotient_cat a r) . 

Lemma ob_quotient_cat : forall a r x, 

cat_equiv_rel a r -> 

ob (quotient_cat a r) x = ob a x. 

Lemma mor_quotient_cat : forall a r u, 
cat_equiv_rel a r -> 

mor (quotient_cat a r) u = is_quotient_arrow a r u. 
Lemma mor_quotient_cat_ex : forall a r u, 
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cat_equiv_rel a r -> 

mor (quotient_cat a r) u = 

(exists y, mor a y & u = arrow_class r y) . 

Lemma mor_quotient_cat_quot_id : forall a r x, 

cat_equiv_rel a r -> ob a x -> 

mor (quotient_cat a r) (quot_id a r x) . 

Lemma mor_quotient_cat_quot_comp : forall a r u v, 

cat_equiv_rel a r -> 

mor (quotient_cat a r) u -> 

mor (quotient_cat a r) v -> 

source u = target v -> 

mor (quotient_cat a r) (quot_comp a r u v) . 

Lemma mor_quotient_cat_arrow_class : forall a r u, 

cat_equiv_rel a r -> mor a u -> 

mor (quotient_cat a r) (arrow_class r u) . 

End Quotient_Category . 

3.3. The module QuotientJFunctor. 

Module Quotient_Functor . 
Export Quotient_Category . 

Definition qfunctor a b r (fo fm:E-> E) := 

Functor . create a (quotient_cat b r) (fun u => arrow_class r (fm u)). 

Lemma source_qfunctor : forall a b r fo fm, 
source (qfunctor a b r fo fm) = a. 

Lemma target_qfunctor : forall a b r fo fm, 

target (qfunctor a b r f o fm) = (quotient_cat b r) . 

Lemma fmor_qfunctor : forall a b r fo fm u, 
mor a u -> 

fmor (qfunctor a b r f o fm) u = arrow_class r (fm u) . 

Definition qf unctor_property a b r fo fm := 

Category . axioms a & 

cat_equiv_rel b r & 

(forall x, ob a x -> ob b (fo x)) & 

(forall u, mor a u -> mor b (fm u)) & 

(forall u, mor a u -> source (fm u) = fo (source u) ) & 
(forall u, mor a u -> target (fm u) = fo (target u) ) & 
(forall x, ob a x -> related r (fm (id ax)) (id b (fo x))) & 
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(forall u v, mor a u -> mor a v -> source u = target v -> 
related r (fm (comp a u v)) (comp b (fm u) (fm v))). 

Lemma fob_qfunctor : forall a b r fo fm x, 
qf unctor_property a b r fo fm -> ob a x -> 
fob (qfunctor a b r fo fm) x = fo x. 

Lemma ob_f ob_qf unctor : forall a b r fo fm x, 

qf unctor_property a b r fo fm -> ob a x -> 

ob (quotient_cat b r) (fob (qfunctor a b r f o fm) x) . 

Lemma mor_fmor_qf unctor : forall a b r fo fm u, 

qf unctor_property a b r fo fm -> mor a u -> 

mor (quotient_cat b r) (fmor (qfunctor a b r f o fm) u) . 

Lemma source_fmor_qf unctor : forall a b r fo fm u, 
qf unctor_property a b r fo fm -> mor a u -> 
source (fmor (qfunctor a b r fo fm) u) = 
fob (qfunctor a b r f o fm) (source u) . 

Lemma target_fmor_qf unctor : forall a b r fo fm u, 
qf unctor_property a b r fo fm -> mor a u -> 
target (fmor (qfunctor a b r fo fm) u) = 
fob (qfunctor a b r f o fm) (target u) . 

Lemma fmor_qfunctor_id : forall a b r fo fm x, 

qf unctor_property a b r fo fm -> ob a x -> 

fmor (qfunctor a b r fo fm) (id a x) = 

id (quotient_cat b r) (fob (qfunctor a b r f o fm) x) . 

Lemma fmor_qfunctor_comp : forall a b r fo fm u v, 

qf unctor_property a b r fo fm -> mor a u -> 

mor a v -> source u = target v -> 

fmor (qfunctor a b r fo fm) (comp a u v) = 

comp (quotient_cat b r) (fmor (qfunctor a b r fo fm) u) 

(fmor (qfunctor a b r f o fm) v) . 

Lemma qfunctor_axioms : forall a b r fo fm, 
qf unctor_property a b r fo fm -> 
Functor . axioms (qfunctor a b r fo fm) . 

Lemma qfunctor_extensionality : forall a b r fo fm a' b' r' fo' fm' , 

a = a' -> b = b' -> r = r' -> 

qf unctor_property a b r fo fm -> 

qf unctor_property a' b' r' fo' fm' -> 

(forall u, mor a u -> related r (fm u) (fm' u)) -> 

qfunctor a b r fo fm = qfunctor a' b' r' fo' fm' . 
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Lemma eq_qfunctor : forall a b r f fo fm, 
Functor . axioms f -> source f = a -> 
target f = (quotient_cat b r) -> 
qf unctor_property a b r fo fm -> 

(forall u, mor a u -> related r (fm u) (arrow_rep (fmor f u))) -> 
f = qfunctor a b r fo fm. 

Lemma qfunctor_property_f ob_fmor : forall b r f , 
Functor . axioms f -> 

cat_equiv_rel b r -> target f = (quotient_cat b r) -> 

qf unctor_property (source f) b r 

(fob f) (fun u => arrow_rep (fmor f u)). 

Lemma eq_qfunctor2 : forall b r f , 
Functor . axioms f -> 

cat_equiv_rel b r -> target f = (quotient_cat b r) -> 

f = qfunctor (source f) b r (fob f) (fun u => arrow_rep (fmor f u) ) . 

Definition qprojection a r := 

qfunctor a a r (fun (x:E) => x) (fun (u:E)=> u) . 

Lemma source_qprojection : forall a r, 
source (qprojection a r) = a. 

Lemma target_qprojection : forall a r, 

target (qprojection a r) = (quotient_cat a r) . 

Lemma qprojection_property : forall a r, 
cat_equiv_rel a r -> 

qf unctor_property a a r (fun (x:E) => x) (fun (u:E)=> u) . 

Lemma f ob_qprojection : forall a r x, 
cat_equiv_rel a r -> ob a x -> 
fob (qprojection a r) x = x. 

Lemma fmor_qprojection : forall a r u, 
mor a u -> 

fmor (qprojection a r) u = (arrow_class r u) . 

Lemma fmor_qprojection_arrow_rep : forall a r u, 

is_quotient_arrow a r u -> 

fmor (qprojection a r) (arrow_rep u) = u. 

Lemma qprojection_axioms : forall a r, 

cat_equiv_rel a r -> 

Functor . axioms (qprojection a r) . 
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Definition qdotted r f := 

Functor . create (quotient_cat (source f) r) (target f) 
(fun u => fmor f (arrow_rep u)). 

Lemma source_qdotted : forall r f, 

source (qdotted r f) = quotient_cat (source f) r. 

Lemma target_qdotted : forall r f , 
target (qdotted r f) = target f . 

Lemma fmor_qdotted : forall r f u, 

cat_equiv_rel (source f) r 

-> is_quotient_arrow (source f) r u -> 

fmor (qdotted r f ) u = fmor f (arrow_rep u) . 

Lemma fmor_qdotted_arrow_class : forall r f u, 

cat_equiv_rel (source f) r -> 

compatible r f -> mor (source f) u -> 

fmor (qdotted r f) (arrow_class r u) = fmor f u. 

Lemma fob_qdotted : forall r f x, 
cat_equiv_rel (source f) r -> 
compatible r f -> ob (source f) x -> 
fob (qdotted r f) x = fob f x. 

Lemma fmor_qdotted_quot_id : forall r f x, 
cat_equiv_rel (source f) r -> 
compatible r f -> ob (source f) x -> 

fmor (qdotted r f ) (quot_id (source f ) r x) = id (target f ) (fob f x) . 

Lemma fmor_qdotted_quot_comp : forall r f u v, 
cat_equiv_rel (source f) r -> 

compatible r f -> is_quotient_arrow (source f) r u -> 
is_quotient_arrow (source f) r v -> source u = target v -> 
fmor (qdotted r f) (quot_comp (source f) r u v) = 
comp (target f) (fmor (qdotted r f) u) (fmor (qdotted r f) v) . 

Lemma qdotted_axioms : forall r f , 
cat_equiv_rel (source f) r -> 

compatible r f -> Functor . axioms (qdotted r f ) . 

Lemma eq_f compose_qdotted_qprojection : forall r f , 
cat_equiv_rel (source f) r -> 
compatible r f -> f = 

fcompose (qdotted r f ) (qprojection (source f) r) . 
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Lemma compatible_f compose_qprojection : forall a r f, 

Functor . axioms f -> cat_equiv_rel a r -> 

source f = quotient_cat a r -> 

compatible r (f compose f (qprojection a r) ) . 

Lemma eq_qdotted : forall a r f, 

Functor . axioms f -> cat_equiv_rel a r -> 

source f = quotient_cat a r -> 

f = qdotted r (fcompose f (qprojection a r)). 

End Quotient_Functor . 



3.4. The module Ob_Iso_Functor. 

Module Ob_Iso_Functor . 
Export Functor_Cat. 
Export Quot ient _Funct or . 



Definition pull_morphism a f := 

Functor . create (functor_cat (target f) a) 

(functor_cat (source f ) a) (fun u => htrans_right u f ) . 



Lemma source_pull_morphism : forall f a, 

source (pull_morphism a f) = (functor_cat (target f) a). 

Lemma target_pull_morphism : forall f a, 

target (pull_morphism a f ) = (functor_cat (source f ) a) . 



Lemma fmor_pull_morphism : forall f a u, 

mor (functor_cat (target f) a) u -> 

fmor (pull_morphism a f) u = htrans_right u f . 

Lemma f ob_pull_morphism : forall fay, 
Functor . axioms f -> Category . axioms a -> 
ob (functor_cat (target f) a) y -> 
fob (pull_morphism a f) y = fcompose y f . 

Lemma pull_morphism_axioms : forall f a, 
Functor . axioms f -> Category . axioms a -> 
Functor . axioms (pull_morphism a f ) . 

Definition faithful f := 
Functor . axioms f & 

(forall u v, related (ker f) u v -> u = v) . 



Definition says f x := 
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Functor . axioms f & 

(exists y, (ob (source f) y & fob f y = x)). 

Definition msays f u := 
Functor . axioms f & 

(exists y, (mor (source f) y & fmor f y = u) ) . 

Definition full f := 

Functor . axioms f & 

(forall u, mor (target f) u -> 

says f (source u) -> says f (target u) -> msays f u) . 

Definition ob_inj f := 
Functor . axioms f & 

(forall x y, ob (source f) x -> ob (source f) y -> 
fob f x = fob f y -> x = y) . 

Definition iso_to_f ull_subcategory f := 
faithful f & full f & ob_inj f. 

Definition ob_image f := 
Z (objects (target f)) 

(fun x => (exists y, (ob (source f) y & fob f y = x))). 

Definition ob_surj f := 
Functor . axioms f & 

(forall x, ob (target f) x -> says f x) . 

Definition ob_iso f := 
ob_inj f & ob_surj f. 

Lemma has_f inverse_rw : forall f , 

has_finverse f = (faithful f & full f & ob_iso f ) . 

Definition is_f ull_subcategory a b := 
is_subcategory a b & 

(forall u, mor b u -> ob a (source u) -> ob a (target u) -> 
mor a u) . 

Definition f ull_subcategory (a:E) (obp : E -> Prop) := 
subcategory a obp (fun u => (obp (source u) & obp (target u))). 

Lemma full_subcategory_property : forall a obp, 
Category. axioms a -> subcategory_property a obp 
(fun u => (obp (source u) & obp (target u) ) ) . 

Lemma full_subcategory_axioms : forall a obp, 
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Category. axioms a -> 

Category. axioms (f ull_subcategory a obp) . 

Lemma is_subcategory_f ull_subcategory : forall a obp, 
Category. axioms a -> 

is_subcategory (f ull_subcategory a obp) a. 

Lemma ob_full_subcategory : forall a obp x, 
axioms a -> 

ob (f ull_subcategory a obp) x = (ob a x & obp x) . 

Lemma mor_full_subcategory : forall a obp u, 
axioms a -> 

mor (f ull_subcategory a obp) u = (mor a u & obp (source u) 
& obp (target u) ) . 

Lemma id_full_subcategory : forall a obp x, 
axioms a -> 

ob (f ull_subcategory a obp) x -> 

id (f ull_subcategory a obp) x = id a x. 

Lemma comp_full_subcategory : forall a obp u v, 
axioms a -> 

mor (f ull_subcategory a obp) u -> 
mor (f ull_subcategory a obp) v -> 
source u = target v -> 

comp (f ull_subcategory a obp) u v = comp a u v. 

Lemma is_full_subcategory_f ull_ sub category : forall a obp, 
Category. axioms a -> 

is_f ull_subcategory (f ull_subcategory a obp) a. 

Definition subcategory_inclusion a b := 
Functor . create a b (fun u => u) . 

Lemma source_subcategory_inclusion : forall a b, 
source (subcategory_inclusion a b) = a. 

Lemma target_subcategory_inclusion : forall a b, 
target (subcategory_inclusion a b) = b. 

Lemma fmor_subcategory_inclusion : forall a b u, 

is_subcategory a b -> mor a u -> 

fmor (subcategory_inclusion a b) u = u. 

Lemma f ob_subcategory_inclusion : forall a b x, 
is_subcategory a b -> ob a x -> 
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fob (subcategory_inclusion a b) x = x. 

Lemma subcategory_inclusion_axioms : forall a b, 
is_subcategory a b -> 

Functor . axioms (subcategory_inclusion a b) . 

Lemma f aithful_subcategory_inclusion : forall a b, 

is_subcategory a b -> 

faithful (subcategory_inclusion a b) . 

Lemma ob_inj_subcategory_inclusion : forall a b, 

is_subcategory a b -> 

ob_inj (subcategory_inclusion a b) . 

Lemma full_subcategory_inclusion : forall a b, 

is_f ull_subcategory a b -> 

full (subcategory_inclusion a b) . 

Lemma is_full_subcategory_rw : forall a b, 
is_f ull_subcategory a b = 

(is_subcategory a b & full (subcategory_inclusion a b)). 
Definition ob_image_fs f := 

f ull_subcategory (target f) (fun x => inc x (ob_image f)) 

Lemma is_subcategory_ob_image_f s : forall f, 
Functor . axioms f -> 

is_subcategory (ob_image_fs f) (target f ) . 

Lemma is_full_subcategory_ob_image_f s : forall f, 
Functor . axioms f -> 

is_full_subcategory (ob_image_fs f) (target f ) . 

Lemma inc_ob_image : forall f x, 
Functor . axioms f -> 

inc x (ob_image f) = (exists y, (ob (source f) y & fob f 

Lemma ob_ob_image_f s : forall f x, 
Functor . axioms f -> 

ob (ob_image_fs f) x = inc x (ob_image f ) . 

Lemma mor_ob_image_f s : forall f u, 
Functor . axioms f -> 
mor (ob_image_fs f) u = 

(mor (target f) u & inc (source u) (ob_image f) & 
inc (target u) (ob_image f)). 
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Definition ob_image_f actor f := 

Functor . create (source f) (ob_image_fs f) 

(fmor f ) . 

Lemma source_ob_image_f actor : forall f, 
source (ob_image_f actor f) = source f . 

Lemma target_ob_image_f actor : forall f , 
target (ob_image_f actor f) = ob_image_fs f . 

Lemma fmor_ob_image_f actor : forall f u, 
Functor . axioms f -> mor (source f) u -> 
fmor (ob_image_f actor f) u = fmor f u. 

Lemma fob_ob_image_f actor : forall f x, 
Functor . axioms f -> ob (source f) x -> 
fob (ob_image_f actor f) x = fob f x. 

Lemma ob_image_f actor_axioms : forall f, 

Functor . axioms f -> 

Functor . axioms (ob_image_f actor f ) . 

Lemma ob_image_f actorization : forall f, 
Functor . axioms f -> 
f = fcompose 

(subcategory_inclusion (ob_image_fs f) (target f)) 
(ob_image_f actor f ) . 

Lemma ob_surj_ob_image_f actor : forall f , 

Functor . axioms f -> 

ob_surj (ob_image_f actor f ) . 

Lemma ob_inj_ob_image_f actor : forall f, 
Functor . axioms f -> 

ob_inj (ob_image_f actor f) = ob_inj f . 

Lemma ob_iso_ob_image_f actor : forall f, 
Functor . axioms f -> 

ob_iso (ob_image_f actor f) = ob_inj f . 

Lemma full_ob_image_f actor : forall f, 

Functor . axioms f -> 

full (ob_image_f actor f) = full f . 

Lemma f aithful_ob_image_f actor : forall f , 
Functor . axioms f -> 

faithful (ob_image_f actor f) = faithful f . 
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Lemma iso_to_f ull_subcategory_rw : forall f, 
iso_to_f ull_subcategory f = 

(Functor . axioms f & has_f inverse (ob_image_f actor f)). 

Lemma subcategory_extensionality : forall a b c, 
is_subcategory a c -> is_subcategory b c -> 
(forall u, mor a u -> mor b u) -> 
(forall u, mor b u -> mor a u) -> 
a = b. 

Lemma full_subcategory_extensionality : forall a b c, 
is_f ull_subcategory a c -> is_f ull_subcategory b c -> 
(forall x, ob a x -> ob b x) -> 
(forall x, ob b x -> ob a x) -> a = b. 

Lemma iso_to_full_subcategory_interp : forall f, 
iso_to_f ull_subcategory f = 

(exists g, (is_f ull_subcategory (target g) (target f) & 
has_f inverse g & 

f = fcompose (subcategory_inclusion (target g) (target f)) g)). 

Definition mor_image f := 

Z (morphisms (target f)) (msays f ) . 

Lemma sub_mor_image : forall f, 

sub (mor_image f) (morphisms (target f)). 

Lemma inc_mor_image : forall f u, 
Functor . axioms f -> 

inc u (mor_image f) = (exists v, (mor (source f) v & 
f mor f v = u) ) . 

Definition add_inverses as := 
Z (morphisms a) 

(fun y => inc y s \/ (invertible a y & inc (inverse ay) s)). 

Lemma sub_add_inverses_ref 1 : forall a s, 

sub s (morphisms a) -> sub s (add_inverses a s) . 

Lemma sub_add_inverses_morphisms : forall a s, 
sub (add_inverses a s) (morphisms a) . 

Lemma inc_add_inverses : forall a s y, 
Category . axioms a -> sub s (morphisms a) -> 
inc y (add_inverses a s) = 

(mor a y & (inc y s \/ (invertible a y & inc (inverse ay) s))). 
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Definition inverse_closed a b := 
is_subcategory a b & 

(forall u, mor a u -> invertible b u -> mor a (inverse b u 

Lemma sub_add_inverses : forall a b s, 
inverse_closed a b -> sub s (morphisms a) -> 
sub (add_inverses b s) (morphisms a) . 

Definition generates as := 

Category. axioms a & sub s (morphisms a) & 

(forall b, is_subcategory b a -> sub s (morphisms b) -> b 

Lemma f aithful_pull_morphism_criterion : forall f a, 
Category. axioms a -> ob_surj f -> 
faithful (pull_morphism a f ) . 

Definition globular t := 
(Nat _Trans. like t) & 
(Category. axioms (osource t)) & 
(Category. axioms (otarget t)) & 
(Functor . axioms (source t)) & 
(Functor . axioms (target t)) & 
(source (target t)) = (osource t) & 
(target (source t)) = (otarget t) . 

Definition natural_ob t x := 

ob (osource t) x & 

mor (otarget t) (ntrans t x) & 

source (ntrans t x) = fob (source t) x & 

target (ntrans t x) = fob (target t) x. 

Definition natural_mor t u := 
mor (osource t) u & 
natural_ob t (source u) & 
natural_ob t (target u) & 

comp (otarget t) (ntrans t (target u)) (fmor (source t) u) 
= comp (otarget t) (fmor (target t) u) (ntrans t (source u 

Lemma nat_trans_axioms_rw : forall t, 
Nat_Trans . axioms t = 
(globular t & 

(forall x, ob (osource t) x -> natural_ob t x) & 
(forall u, mor (osource t) u -> natural_mor t u) ) . 

Lemma natural_mor_comp : forall t u v, 

globular t -> natural_mor t u -> natural_mor t v -> 
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source u = target v -> natural_mor t (comp (osource t) u v) . 

Lemma natural_mor_id : forall t x, 
globular t -> natural_ob t x -> 
natural_mor t (id (osource t) x) . 

Lemma natural_ob_source : forall t u, 
globular t -> natural_mor t u -> 
natural_ob t (source u) . 

Lemma natural_ob_target : forall t u, 
globular t -> natural_mor t u -> 
natural_ob t (target u) . 

Definition naturality_subcategory t := 

subcategory (osource t) (natural_ob t) (natural_mor t) . 

Lemma is_subcategory_naturality_subcategory : forall t, 

globular t -> is_subcategory (naturality_subcategory t) (osource t) . 

Lemma ob_naturality_subcategory : forall t x, 

globular t -> ob (naturality_subcategory t) x = natural_ob t x. 
Lemma mor_naturality_subcategory : forall t u, 

globular t -> mor (naturality_subcategory t) u = natural_mor t u. 

Lemma invertible_lef t_multiply : forall a u v w, 
invertible a u -> mor a v -> mor a w -> 
source u = target v -> source u = target w -> 
comp a u v = comp a u w -> v = w. 

Lemma natural_mor_inverse : forall t u, 

globular t -> invertible (osource t) u -> 

natural_mor t u -> natural_mor t (inverse (osource t) u) . 

Lemma inverse_closed_naturality_subcategory : forall t, 

globular t -> inverse_closed (naturality_subcategory t) (osource t) . 

Lemma sub_add_inverses_naturality_subcategory : forall s t, 
globular t -> sub s (morphisms (naturality_subcategory t)) -> 
sub (add_inverses (osource t) s) 
(morphisms (naturality_subcategory t)). 

Definition equalizer_subcategory f g := 

subcategory (source f) (fun x => (fob f x = fob g x)) 

(fun u => (fmor f u = fmor g u)) . 
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Lemma equalizer_subcategory_property : forall f g, 
Functor . axioms f -> Functor . axioms g -> 
source f = source g -> target f = target g -> 
subcategory_property (source f) 

(fun x => (fob f x = fob g x) ) (fun u => (fmor f u = fmor g u)). 

Lemma is_subcategory_equalizer_subcategory : forall f g, 
Functor . axioms f -> Functor . axioms g -> 
source f = source g -> target f = target g -> 
is_subcategory (equalizer_subcategory f g) (source f ) . 

Lemma ob_equalizer_subcategory : forall f g x, 
Functor . axioms f -> Functor . axioms g -> 
source f = source g -> target f = target g -> 
ob (equalizer_subcategory f g) x = 
(ob (source f ) x & fob f x = fob g x) . 

Lemma mor_equalizer_subcategory : forall f g u, 
Functor . axioms f -> Functor . axioms g -> 
source f = source g -> target f = target g -> 
mor (equalizer_subcategory f g) u = 
(mor (source f ) u & fmor f u = fmor g u) . 

Lemma mor_equ_subcat_inverse : forall f g u, 
Functor . axioms f -> Functor . axioms g -> 
source f = source g -> target f = target g -> 
invertible (source f) u -> 
mor (equalizer_subcategory f g) u -> 

mor (equalizer_subcategory f g) (inverse (source f ) u) . 

Lemma inverse_closed_equalizer_subcatgory : forall f g, 
Functor . axioms f -> Functor . axioms g -> 
source f = source g -> target f = target g -> 
inverse_closed (equalizer_subcategory f g) (source f ) . 

Lemma mor_equ_subcat_fmor : forall f g h u, 

Functor . axioms f -> Functor . axioms g -> Functor . axioms h -> 

source g = target f -> source h = target f -> 

fcompose g f = fcompose h f -> 

mor (source f) u -> 

mor (equalizer_subcategory g h) (fmor f u) . 

Lemma sub_mor_image_equalizer_subcategory : forall f g h, 
Functor . axioms f -> Functor . axioms g -> Functor . axioms h -> 
source g = target f -> source h = target f -> 
fcompose g f = fcompose h f -> 

sub (mor_image f) (morphisms (equalizer_subcategory g h)). 
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Lemma sub_add_inverses_equalizer_subcategory : forall f g h, 

Functor . axioms f -> Functor . axioms g -> Functor . axioms h -> 

source g = target f -> source h = target f -> 

fcompose g f = fcompose h f -> 

sub (add_inverses (target f) (mor_image f)) 

(morphisms (equalizer_subcategory g h)). 

Lemma equalizer_subcategory_extensionality_criterion : 
forall f g, 

Functor . axioms f -> Functor . axioms g -> 
source f = source g -> target f = target g -> 
equalizer_subcategory f g = source f -> 
f = g- 

Lemma f compose_eq_shows_eq : forall f g h, 

Functor . axioms f -> Functor . axioms g -> Functor . axioms h -> 
source g = target f -> source h = target f -> 
fcompose g f = fcompose h f -> 

generates (target f) (add_inverses (target f) (mor_image f)) 
g = h. 

Lemma ob_inj_pull_morphism_criterion : forall f a, 
Category. axioms a -> 
ob_iso f -> 

generates (target f) (add_inverses (target f) (mor_image f)) 
ob_inj (pull_morphism a f ) . 

Definition f ull_pull_situation f g h u := 

Functor . axioms f & 

Functor . axioms g & 

Functor . axioms h & 

Nat _Trans . axioms u & 

source g = target f & 

source h = target f & 

fcompose g f = source u & 

fcompose h f = target u & 

ob_iso f & 

generates (target f) (add_inverses (target f) (mor_image f)). 

Lemma full_pull_additional_f acts : forall f g h u, 

f ull_pull_situation f g h u -> 

(target g = otarget u & 

target h = otarget u & 

source f = osource u & 

source g = source h & 

target g = target h & 
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osource u = source f ) . 

Definition ob_inverse_pr f x y:= 
ob (source f) y ft fob f y = x. 

Definition ob_inverse f x := 
choose (ob_inverse_pr f x) . 

Lemma exists_ob_inverse_pr : forall f x, 
ob_iso f -> ob (target f) x -> 
exists y, ob_inverse_pr f x y. 

Lemma f ob_ob_inverse : forall f x, 
ob_iso f -> ob (target f) x -> 
fob f (ob_inverse f x) = x. 

Lemma ob_ob_inverse : forall f x, 
ob_iso f -> ob (target f) x -> 
ob (source f) (ob_inverse f x) . 

Lemma ob_inverse_f ob : forall f x, 
ob_iso f -> ob (source f) x -> 
ob_inverse f (fob f x) = x. 

Definition ntdotted f g h u := 

Nat_Trans . create g h (fun x => ntrans u (ob_inverse f 

Lemma source_ntdotted : forall f g h u, 
source (ntdotted f g h u) = g. 

Lemma target_ntdotted : forall f g h u, 
target (ntdotted f g h u) = h. 

Lemma osource_ntdotted : forall f g h u, 
osource (ntdotted f g h u) = source g. 

Lemma otarget_ntdotted : forall f g h u, 
otarget (ntdotted f g h u) = target h. 

Lemma globular_ntdotted : forall f g h u, 
f ull_pull_situation f g h u -> 
globular (ntdotted f g h u) . 

Lemma ntrans_ntdotted : forall f g h u x, 

f ull_pull_situation f g h u -> 

ob (target f) x -> 

ntrans (ntdotted f g h u) x = 
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ntrans u (ob_inverse f x) . 

Lemma ntrans_ntdotted_f ob : forall f g h u x, 
f ull_pull_situation f g h u -> 
ob (source f) x -> 

ntrans (ntdotted f g h u) (fob f x) 
= ntrans u x. 

Lemma natural_ob_ntdotted : forall f g h u x, 

f ull_pull_situation f g h u -> 

ob (target f) x -> 

natural_ob (ntdotted f g h u) x. 

Lemma natural_mor_ntdotted_fmor : forall f g h u y, 
f ull_pull_situation f g h u -> 
mor (source f) y -> 

natural_mor (ntdotted f g h u) (fmor f y) . 

Lemma sub_mor_image_naturality_subcategory : forall f g h u, 
f ull_pull_situation f g h u -> 
sub (mor_image f) 

(morphisms (naturality_subcategory (ntdotted f g h u))). 

Lemma sub_add_inverses_naturality_subcategory_ntdotted : 
forall f g h u, 

f ull_pull_situation f g h u -> 

sub (add_inverses (target f) (mor_image f)) 

(morphisms (naturality_subcategory (ntdotted f gnu))). 

Lemma naturality_subcategory_ntdotted_all : forall f g h u, 
f ull_pull_situation f g h u -> 

naturality_subcategory (ntdotted f g h u) = target f . 

Lemma ntdotted_axioms : forall f g h u, 

f ull_pull_situation f g h u -> 

Nat _Trans . axioms (ntdotted f g h u) . 

Lemma htrans_right_ntdotted : forall f g h u, 
f ull_pull_situation f g h u -> 
htrans_right (ntdotted f g h u) f = u. 

Lemma full_pull_morphism_criterion : forall f a, 
Category. axioms a -> 
ob_iso f -> 

generates (target f) (add_inverses (target f) (mor_image f)) -> 
full (pull_morphism a f ) . 



46 



C. SIMPSON 



Lemma iso_to_f ull_subcategory_pull_morphism_criterion : forall f a, 
Category. axioms a -> 
ob_iso f -> 

generates (target f) (add_inverses (target f) (mor_image f)) -> 
iso_to_f ull_subcategory (pull_morphism a f ) . 

End Ob_Iso_Functor . 



3.5. The module Associating_Quotient. 

Module Associating_Quotient . 
Export Quotient_Category . 
Export Quotient_Functor . 

Definition rqcat a := 
Category .Notations . like a & 
(forall u, is_mor a u -> Arrow. like u) & 
(forall x, is_ob a x -> is_mor a (id a x)) & 
(forall x, is_ob a x -> source (id a x) = x) & 
(forall x, is_ob a x -> target (id a x) = x) & 
(forall u, is_mor a u -> is_ob a (source u) ) & 
(forall u, is_mor a u -> is_ob a (target u) ) & 

(forall u v, is_mor a u -> is_mor a v -> source u = target v -> 
is_mor a (comp a u v) ) & 

(forall u v, is_mor a u -> is_mor a v -> source u = target v -> 
source (comp a u v) = source v) & 

(forall u v, is_mor a u -> is_mor a v -> source u = target v -> 
target (comp a u v) = target u) . 

Lemma rq_is_ob_source : forall a u, 

rqcat a -> is_mor a u -> is_ob a (source u) . 

Lemma rq_is_ob_target : forall a u, 

rqcat a -> is_mor a u -> is_ob a (target u) . 

Lemma rq_is_mor_id : forall a x, 

rqcat a -> is_ob a x -> is_mor a (id a x) . 

Lemma rq_source_id : forall a x, 

rqcat a -> is_ob a x -> source (id ax) = x. 

Lemma rq_target_id : forall a x, 

rqcat a -> is_ob a x -> target (id ax) = x. 

Lemma rq_is_mor_comp : forall a u v, 
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rqcat a -> is_mor a u -> is_mor a v -> source u = target v -> 
is_mor a (comp a u v) . 

Lemma rq_source_comp : forall a u v, 

rqcat a -> is_mor a u -> is_mor a v -> source u = target v -> 
source (comp a u v) = source v. 

Lemma rq_target_comp : forall a u v, 

rqcat a -> is_mor a u -> is_mor a v -> source u = target v -> 
target (comp a u v) = target u. 

Definition left_id_ok a := 

(forall u, is_mor a u -> comp a (id a (target u) ) u = u) . 
Definition right_id_ok a := 

(forall u, is_mor a u -> comp a u (id a (source u) ) = u) . 
Definition assoc_ok a := 

(forall u v w, is_mor a u -> is_mor a v -> is_mor a w -> 
source u = target v -> source v = target w -> 
comp a (comp a u v) w = comp a u (comp a v w)) . 

Lemma cat_axioms_rw_rq : forall a, 
Category. axioms a = 

(rqcat a & left_id_ok a & right_id_ok a & assoc_ok a) . 

Definition rqcat_equiv_rel a r := 
rqcat a & 

is_equivalence_relation r & 

(forall x y, related r x y -> is_mor a x) & 

(forall x y, related r x y -> is_mor a y) & 

(forall x y, related r x y -> source x = source y) & 

(forall x y, related r x y -> target x = target y) & 

(forall u, is_mor a u -> related r u u) & 

(forall x y u v, related r x y -> related r u v -> 

source x = target u -> 

related r (comp a x u) (comp a y v)) & 

(forall u, is_mor a u -> 

related r (comp a (id a (target u)) u) u) & 
(forall u, is_mor a u -> 

related r (comp a u (id a (source u))) u) & 

(forall u v w, is_mor a u -> is_mor a v -> is_mor a w -> 

source u = target v -> source v = target w -> 

related r (comp a (comp a u v) w) (comp a u (comp a v w))). 

Lemma rq_inc_arrow_arrow_class : forall a r u v, 
rqcat_equiv_rel a r -> is_mor a v -> 
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inc v (arrow (arrow_class r u)) = related r u v. 

Definition rq_quotient_arrow a r u := 
rqcat_equiv_rel a r & 

(exists y, is_mor a y & u = arrow_class r y) . 

Lemma rq_quotient_arrow_arrow_class : forall a r u, 
rqcat_equiv_rel a r -> is_mor a u -> 
rq_quotient_arrow a r (arrow_class r u) . 

Lemma rq_inc_quotient_morphisms : forall a r u, 
rqcat_equiv_rel a r -> 

inc u (quotient_morphisms a r) = rq_quotient_arrow a r u. 

Lemma rq_related_arrow_class_eq : forall a r u v, 
rqcat_equiv_rel a r -> 
is_mor a u -> 
related r u v = 

(arrow_class r u = arrow_class r v) . 

Lemma rq_inc_arrow_class_ref 1 : forall a r u, 

rqcat_equiv_rel a r -> is_mor a u -> inc u (arrow (arrow_class r u)). 

Lemma rq_nonempty_arrow : forall a r u, 
rq_quotient_arrow a r u -> 
nonempty (arrow u) . 

Lemma rq_inc_arrow_rep_arrow : forall a r u, 
rq_quotient_arrow a r u -> 
inc (arrow_rep u) (arrow u) . 

Lemma rq_related_arrow_rep_arrow_class : forall a r u, 
rqcat_equiv_rel a r -> is_mor a u -> 
related r u (arrow_rep (arrow_class r u)). 

Lemma rq_source_arrow_rep : forall a r u, 

rq_quotient_arrow a r u -> source (arrow_rep u) = source u. 
Lemma rq_target_arrow_rep : forall a r u, 

rq_quotient_arrow a r u -> target (arrow_rep u) = target u. 

Lemma rq_arrow_class_arrow_rep : forall a r u, 
rq_quotient_arrow a r u -> 
arrow_class r (arrow_rep u) = u. 

Lemma rq_inc_arrow_f acts : forall a r u y, 
rq_quotient_arrow a r u -> inc y (arrow u) -> 
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(is_mor a y & source y = source u & target y = target u) . 

Lemma rq_mor_arrow_rep : forall a r u, 
rq_quotient_arrow a r u -> 
is_mor a (arrow_rep u) . 

Lemma rq_related_arrow_rep : forall a r u v, 
rqcat_equiv_rel a r -> is_mor a v -> u = arrow_class r v -> 
related r v (arrow_rep u) . 

Lemma rq_related_arrow_rep_rw : forall a r u v, 
rqcat_equiv_rel a r -> rq_quotient_arrow a r u -> is_mor a v -> 
related r v (arrow_rep u) = (u = arrow_class r v) . 

Lemma rq_source_quot_comp : forall a r u v, 
rqcat_equiv_rel a r -> 
rq_quotient_arrow a r u -> 

rq_quotient_arrow a r v -> source u = target v -> 
source (quot_comp a r u v) = source v. 

Lemma rq_target_quot_comp : forall a r u v, 
rqcat_equiv_rel a r -> 
rq_quotient_arrow a r u -> 

rq_quotient_arrow a r v -> source u = target v -> 
target (quot_comp a r u v) = target u. 

Lemma rq_quotient_arrow_quot_id : forall a r x, 
rqcat_equiv_rel a r -> is_ob a x -> 
rq_quotient_arrow a r (quot_id a r x) . 

Lemma rq_quotient_arrow_quot_comp : forall a r u v, 
rqcat_equiv_rel a r -> rq_quotient_arrow a r u -> 
rq_quotient_arrow a r v 
-> source u = target v -> 

rq_quotient_arrow a r (quot_comp a r u v) . 

Lemma rq_arrow_class_eq : forall a r u v, 
rqcat_equiv_rel a r -> is_mor a u -> 
(arrow_class r u = arrow_class r v) = 
(related r u v) . 



Lemma rq_related_comp : forall a r x y u v, 
rqcat_equiv_rel a r -> 

related r x y -> related r u v -> source x = target u -> 
related r (comp a x u) (comp a y v) . 



50 



C. SIMPSON 



Lemma rq_quot_comp_arrow_class : forall a r u v, 
rqcat_equiv_rel a r -> is_mor a u -> is_mor a v -> 
source u = target v -> 

quot_comp a r (arrow_class r u) (arrow_class r v) = 
arrow_class r (comp a u v) . 

Lemma rq_lef t_id_related : forall a r u, 
rqcat_equiv_rel a r -> 
is_mor a u -> 

related r (comp a (id a (target u )) u) u. 

Lemma rq_right_id_related : forall a r u, 
rqcat_equiv_rel a r -> 
is_mor a u -> 

related r (comp a u (id a (source u ))) u. 

Lemma rq_assoc_related : forall a r u v w, 
rqcat_equiv_rel a r -> 

is_mor a u -> is_mor a v -> is_mor a w -> 

source u = target v -> source v = target w -> 

related r (comp a (comp a u v) w) (comp a u (comp a v w)) 

Lemma rq_quot_id_lef t : forall a r a' r' x u, 
rqcat_equiv_rel a r -> rq_quotient_arrow a r u -> 
x = target u -> a' = a -> r' = r -> 
quot_comp a r (quot_id a' r' x) u = u. 

Lemma rq_quot_id_right : forall a r a' r' x u, 
rqcat_equiv_rel a r -> rq_quotient_arrow a r u -> 
x = source u -> a' = a -> r' = r -> 
quot_comp a r u (quot_id a' r' x) = u. 

Lemma rq_quot_comp_assoc : forall a r a' r' u v w, 
rqcat_equiv_rel a r -> rq_quotient_arrow a r u -> 
rq_quotient_arrow a r v 

-> rq_quotient_arrow a r w -> source u = target v -> 
source v = target w -> a' = a -> r' = r -> 
quot_comp a r (quot_comp a' r' u v) w = 
quot_comp a r u (quot_comp a' r' v w) . 

Lemma rq_is_mor_quotient_cat : forall a r u, 
rqcat_equiv_rel a r -> 

is_mor (quotient_cat a r) u = rq_quotient_arrow a r u. 

Lemma rq_comp_quotient_cat : forall a r u v, 
rqcat_equiv_rel a r -> rq_quotient_arrow a r u -> 
rq_quotient_arrow a r v -> 
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source u = target v -> 

comp (quotient_cat a r) u v = quot_comp a r u v. 

Lemma rq_id_quotient_cat : forall a r x, 

rqcat_equiv_rel a r -> is_ob a x -> 

id (quotient_cat a r) x = quot_id a r x. 

Lemma rq_source_quot_id : forall a r x, 
rqcat_equiv_rel a r -> is_ob a x -> 
source (quot_id a r x) = x. 

Lemma rq_target_quot_id : forall a r x, 
rqcat_equiv_rel a r -> is_ob a x -> 
target (quot_id a r x) = x. 

Lemma rqcat_quotient_cat : forall a r, 
rqcat_equiv_rel a r -> 
rqcat (quotient_cat a r) . 

Lemma rq_quotient_cat_axioms : forall a r, 
rqcat_equiv_rel a r -> Category. axioms (quotient_cat a r) 

Lemma rq_ob_quotient_cat : forall a r x, 

rqcat_equiv_rel a r -> 

ob (quotient_cat a r) x = is_ob a x. 

Lemma rq_mor_quotient_cat : forall a r u, 
rqcat_equiv_rel a r -> 

mor (quotient_cat a r) u = rq_quotient_arrow a r u. 

Lemma rq_mor_quotient_cat_ex : forall a r u, 
rqcat_equiv_rel a r -> 
mor (quotient_cat a r) u = 

(exists y, is_mor a y & u = arrow_class r y) . 

Lemma rq_mor_quotient_cat_quot_id : forall a r x, 
rqcat_equiv_rel a r -> is_ob a x -> 
mor (quotient_cat a r) (quot_id a r x) . 

Lemma rq_mor_quotient_cat_quot_comp : forall a r u v, 

rqcat_equiv_rel a r -> 

mor (quotient_cat a r) u -> 

mor (quotient_cat a r) v -> 

source u = target v -> 

mor (quotient_cat a r) (quot_comp a r u v) . 

Lemma rq_mor_quotient_cat_arrow_class : forall a r u, 
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rqcat_equiv_rel a r -> is_mor a u -> 

mor (quotient_cat a r) (arrow_class r u) . 



Definition rqf unctor_property a b r fo fm := 

Category. axioms a & 

rqcat_equiv_rel b r & 

(forall x, ob a x -> is_ob b (fo x) ) & 

(forall u, mor a u -> is_mor b (fm u)) & 

(forall u, mor a u -> source (fm u) = fo (source u) ) & 

(forall u, mor a u -> target (fm u) = fo (target u) ) & 

(forall x, ob a x -> related r (fm (id ax)) (id b (fo x))) & 

(forall u v, mor a u -> mor a v -> source u = target v -> 

related r (fm (comp a u v)) (comp b (fm u) (fm v))). 



Lemma rq_f ob_qf unctor : forall a b r fo fm x, 
rqf unctor_property a b r fo fm -> ob a x -> 
fob (qfunctor a b r fo fm) x = fo x. 



Lemma rq_ob_fob_qf unctor : forall a b r fo fm x, 

rqf unctor_property a b r fo fm -> ob a x -> 

ob (quotient_cat b r) (fob (qfunctor a b r f o fm) x) . 



Lemma rq_mor_fmor_qf unctor : forall a b r fo fm u, 

rqf unctor_property a b r fo fm -> mor a u -> 

mor (quotient_cat b r) (fmor (qfunctor a b r f o fm) u) . 



Lemma rq_source_fmor_qf unctor : forall a b r fo fm u, 
rqf unctor_property a b r fo fm -> mor a u -> 
source (fmor (qfunctor a b r fo fm) u) = 
fob (qfunctor a b r f o fm) (source u) . 



Lemma rq_target_fmor_qf unctor : forall a b r fo fm u, 
rqf unctor_property a b r fo fm -> mor a u -> 
target (fmor (qfunctor a b r fo fm) u) = 
fob (qfunctor a b r f o fm) (target u) . 

Lemma rq_fmor_qf unctor_id : forall a b r fo fm x, 

rqf unctor_property a b r fo fm -> ob a x -> 

fmor (qfunctor a b r fo fm) (id a x) = 

id (quotient_cat b r) (fob (qfunctor a b r f o fm) x) . 

Lemma rq_fmor_qf unctor_comp : forall a b r fo fm u v, 

rqf unctor_property a b r fo fm -> mor a u -> 

mor a v -> source u = target v -> 

fmor (qfunctor a b r fo fm) (comp a u v) = 

comp (quotient_cat b r) (fmor (qfunctor a b r fo fm) u) 
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(fmor (qfunctor a b r f o fm) v) . 

Lemma qfunctor_axioms : forall a b r fo fm, 
rqf unctor_property a b r fo fm -> 
Functor . axioms (qfunctor a b r fo fm) . 

End Associating_Quotient . 
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4. The file gzdef .v 

Require Export f reecat . 
Require Export qcat . 

4.1. The module GZ_Def . 

Module GZ_Def. 
Export Free_Category . 
Export Quotient_Functor . 

Definition Forward := R (f_(o_(r_ DOT))). 
Definition Backward := R (b_(k_(d_ DDT))). 

Definition f orward_arrow u := 

Arrow. create (source u) (target u) (pair Forward u) . 
Definition backward_arrow u := 

Arrow. create (target u) (source u) (pair Backward u) . 

Lemma source_f orward_arrow : forall u, 
source (f orward_arrow u) = source u. 

Lemma target_f orward_arrow : forall u, 
target (f orward_arrow u) = target u. 

Lemma source_backward_arrow : forall u, 
source (backward_arrow u) = target u. 

Lemma target_backward_arrow : forall u, 
target (backward_arrow u) = source u. 

Definition original_arrow u := pr2 (arrow u) . 

Lemma original_arrow_f orward_arrow : forall u, 
original_arrow (f orward_arrow u) = u. 

Lemma original_arrow_backward_arrow : forall u, 
original_arrow (backward_arrow u) = u. 

Definition direction u := prl (arrow u) . 

Lemma direct ion_forward_arrow : forall u, 
direction (f orward_arrow u) = Forward. 

Lemma direct ion_backward_arrow : forall u, 
direction (backward_arrow u) = Backward. 
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Definition localizing_system as := 

Category. axioms a & 

(forall u, inc u s -> mor a u) . 

Definition loc_edges as := 

union2 (Image . create (morphisms a) f orward_arrow) 
(Image . create s backward_arrow) . 

Lemma inc_loc_edges : forall a s u, 
localizing_system a s -> 
inc u (loc_edges a s) = 

((exists y, (mor a y & u = f orward_arrow y) ) \/ 

(exists y, (mor a y & inc y s & u = backward_arrow y))). 

Definition gz_graph a s := Graph. create (objects a) (loc_edges a s) . 

Lemma inc_vertices_gz_graph : forall a s x, 

localizing_system a s -> 

inc x (vertices (gz_graph as)) = ob a x. 

Lemma inc_edges_gz_graph : forall a s u, 
localizing_system a s -> 

inc u (edges (gz_graph a s)) = inc u (loc_edges a s) . 
Lemma gz_graph_axioms : forall a s, 

localizing_system a s -> Graph. axioms (gz_graph a s) . 
Definition gz_freecat as := freecat (gz_graph a s) . 
Lemma gz_f reecat_axioms : forall a s, 

localizing_system a s -> Category . axioms (gz_freecat a s) . 

Lemma ob_gz_f reecat : forall a s x, 

localizing_system a s -> 

ob (gz_f reecat as) x = ob a x. 

Lemma mor_gz_f reecat : forall a s u, 
localizing_system a s -> 

mor (gz_f reecat a s) u = mor_f reecat (gz_graph a s) u. 

Lemma comp_gz_f reecat : forall a s u v, 
localizing_system a s -> 
mor (gz_freecat a s) u -> 
mor (gz_freecat a s) v -> 
source u = target v -> 

comp (gz_f reecat as) u v = freecat_comp u v. 



56 



C. SIMPSON 



Lemma id_gz_f reecat : forall a s x, 
localizing_system a s -> 

ob a x -> id (gz_f reecat a s) x = freecat_id x. 

Definition forward_edge u := 
freecat_edge (f orward_arrow u) . 

Definition backward_edge u := 
freecat_edge (backward_arrow u) . 

Lemma source_f orward_edge : forall u, 
source (f orward_edge u) = source u. 

Lemma target_f orward_edge : forall u, 
target (f orward_edge u) = target u. 

Lemma source_backward_edge : forall u, 
source (backward_edge u) = target u. 

Lemma target_backward_edge : forall u, 
target (backward_edge u) = source u. 

Lemma inc_f orward_arrow_loc_edges : forall a s u, 
localizing_system a s ->mor a u -> 
inc (f orward_arrow u) (loc_edges a s) . 

Lemma inc_backward_arrow_loc_edges : forall a s q 

localizing_system a s ->inc q s -> 

inc (backward_arrow q) (loc_edges a s) . 

Lemma mor_f orward_edge : forall a s u, 
localizing_system a s -> 

mor a u -> mor (gz_freecat a s) (f orward_edge u) . 

Lemma mor_backward_edge : forall a s q, 
localizing_system a s -> 

inc q s -> mor (gz_freecat a s) (backward_edge q) 

Definition gz_rel as := 
Z (coarse (gz_f reecat as)) 
(fun z => 

((exists x, (ob a x & 

z = pair (f orward_edge (id ax)) (freecat_id x))) 
(exists q, (inc q s & z = pair 

(f reecat_comp (f orward_edge q) (backward_edge q)) 
(freecat_id (target q)))) \/ 
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(exists q, (inc q s & z = pair 

(f reecat_comp (backward_edge q) (f orward_edge q) ) 
(freecat_id (source q)))) \/ 

(exists u, exists v, (mor a u & mor a v & source u = target v & 
z = pair (f reecat_comp (f orward_edge u) (f orward_edge v) ) 
(f orward_edge (comp a u v) ))))). 

Lemma inc_coarse : forall a z, 
Category. axioms a -> 
inc z (coarse a) = 

(exists u, exists v, (mor a u & mor a v & source u = source v 
& target u = target v & z=pair u v) ) . 

Lemma inc_gz_rel : forall a s z, 
localizing_system a s -> 
inc z (gz_rel a s) = 
((exists x, (ob a x & 

z = pair (f orward_edge (id ax)) (freecat_id x)))\/ 
(exists q, (inc q s & z = pair 

(f reecat_comp (f orward_edge q) (backward_edge q)) 
(freecat_id (target q))))\/ 
(exists q, (inc q s & z = pair 

(f reecat_comp (backward_edge q) (f orward_edge q) ) 
(freecat_id (source q))))\/ 

(exists u, exists v, (mor a u & mor a v & source u = target v & 
z = pair (f reecat_comp (f orward_edge u) (f orward_edge v) ) 
(f orward_edge (comp a u v) ) ) ) ) . 

Lemma related_gz_rel : forall a s e f , 
localizing_system a s -> 
related (gz_rel as) e f = 
((exists x, (ob a x & 

e = (f orward_edge (id a x) ) & f = (freecat_id x))) \/ 
(exists q, (inc q s & e = 

(f reecat_comp (f orward_edge q) (backward_edge q) ) 
& f = (freecat_id (target q) ) ) ) \/ 
(exists q, (inc q s & e = 

(f reecat_comp (backward_edge q) (f orward_edge q) ) 
& f = (freecat_id (source q) ) ) ) \/ 

(exists u, exists v, (mor a u & mor a v & source u = target v & 
e = (f reecat_comp (f orward_edge u) (f orward_edge v) ) 
& f = (f orward_edge (comp a u v))))). 

Lemma sub_gz_rel_coarse : forall a s, 

sub (gz_rel a s) (coarse (gz_freecat as)). 

Lemma cat_rel_gz_rel : forall a s, 
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localizing_system a s -> 

cat_rel (gz_freecat a s) (gz_rel a s) . 

Definition gz_cer a s := cer (gz_freecat a s) (gz_rel a s) . 

Lemma cat_equiv_rel_gz_cer : forall a s, 
localizing_system a s -> 

cat_equiv_rel (gz_freecat a s) (gz_cer a s) . 

Lemma related_gz_cer_f irst_mor : forall a s e f , 
localizing_system a s -> 

related (gz_cer a s) e f -> mor (gz_freecat a s) e. 

Lemma related_gz_cer_second_mor : forall a s e f , 
localizing_system a s -> 

related (gz_cer a s) e f -> mor (gz_freecat a s) f. 

Lemma related_gz_cer_same_source : forall a s e f , 
localizing_system a s -> 

related (gz_cer a s) e f -> source e = source f . 

Lemma related_gz_cer_same_target : forall a s e f , 
localizing_system a s -> 

related (gz_cer a s) e f -> target e = target f . 
Lemma related_cer : forall a r u v, 

cat_rel a r -> related r u v -> related (cer a r) u v. 

Lemma related_gz_cer_f orward_edge_id : 
forall a s x, 
localizing_system a s -> 

ob a x -> related (gz_cer a s) (f orward_edge (id ax)) (freecat_id x) . 

Lemma related_gz_cer_comp_f orward_backward : forall a s q, 
localizing_system a s -> inc q s -> 

related (gz_cer a s) (f reecat_comp (f orward_edge q) (backward_edge q)) 
(freecat_id (target q) ) . 

Lemma related_gz_cer_comp_backward_f orward : forall a s q, 
localizing_system a s -> inc q s -> 

related (gz_cer a s) (f reecat_comp (backward_edge q) (f orward_edge q)) 
(freecat_id (source q) ) . 

Lemma related_gz_cer_comp_f orward : forall a s u v, 
localizing_system a s -> mor a u -> mor a v -> 
source u = target v -> 

related (gz_cer a s) (f reecat_comp (f orward_edge u) (f orward_edge v)) 
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(f orward_edge (comp a u v) ) . 

Lemma compatible_gz_cer_criterion : forall a s f, 

localizing_system a s -> 

Functor . axioms f -> 

source f = gz_freecat a s -> 

(forall x, ob a x -> fmor f (f orward_edge (id a x) ) = 
id (target f) (fob fx)) -> 
(forall q, inc q s -> 

are_inverse (target f) (fmor f (f orward_edge q)) 
(fmor f (backward_edge q) ) ) -> 

(forall u v, mor a u -> mor a v -> source u = target v -> 
comp (target f) (fmor f (f orward_edge u)) (fmor f (f orward_edge 
fmor f (f orward_edge (comp a u v))) -> 
compatible (gz_cer a s) f . 

Definition gz_loc as := 

quotient_cat (gz_freecat a s) (gz_cer a s) . 

Lemma gz_loc_axioms : forall a s, 
localizing_system a s -> 
Category . axioms (gz_loc a s) . 

Definition gz_qprojection a s := 
qprojection (gz_freecat a s) (gz_cer a s) . 

Lemma source_gz_qprojection : forall a s, 
localizing_system a s -> 

source (gz_qprojection a s) = gz_freecat a s. 

Lemma target_gz_qprojection : forall a s, 
localizing_system a s -> 

target (gz_qprojection a s) = gz_loc a s. 

Lemma gz_qproj ection_axioms : forall a s, 

localizing_system a s -> 

Functor . axioms (gz_qprojection a s) . 

Definition gz_proj as := 

qfunctor a (gz_freecat a s) (gz_cer a s) 

(fun x => x) f orward_edge . 

Lemma source_gz_proj : forall a s, 
localizing_system a s -> 
source (gz_proj a s) = a. 

Lemma target_gz_proj : forall a s, 
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localizing_system a s -> 

target (gz_proj a s) = gz_loc a s. 

Definition gz_forward a s u := 
arrow_class (gz_cer a s) (f orward_edge u) . 

Definition gz_backward a s u := 
arrow_class (gz_cer a s) (backward_edge u) . 

Lemma source_gz_f orward : forall a s u, 
localizing_system a s -> 

mor a u -> source (gz_f orward a s u) = source u. 

Lemma target_gz_f orward : forall a s u, 
localizing_system a s -> 

mor a u -> target (gz_f orward a s u) = target u. 

Lemma source_gz_backward : forall a s q, 
localizing_system a s -> 

inc q s -> source (gz_backward a s q) = target q. 

Lemma target_gz_backward : forall a s q, 
localizing_system a s -> 

inc q s -> target (gz_backward a s q) = source q. 

Lemma mor_gz_f orward : forall a s u, 
localizing_system a s -> 

mor a u -> mor (gz_loc a s) (gz_f orward a s u) . 

Lemma mor_gz_backward : forall a s q, 
localizing_system a s -> 

inc q s -> mor (gz_loc a s) (gz_backward a s q) . 

Lemma qfunctor_property_f orward_edge : 

forall a s, localizing_system a s -> 

qf unctor_property a (gz_freecat a s) (gz_cer a s) 

(fun x => x) f orward_edge . 

Lemma gz_proj_axioms : forall a s, 
localizing_system a s -> 
Functor . axioms (gz_proj a s) . 



Lemma fob_gz_proj : forall a s x, 
localizing_system a s -> 
ob a x -> 

fob (gz_proj as) x = x. 
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Lemma fmor_gz_proj : forall a s u, 
localizing_system a s -> 
mor a u -> fmor (gz_proj a s) u = 
gz_forward a s u. 

Lemma gz_f orward_id : forall a s x, 
localizing_system a s -> 

ob a x -> gz_forward a s (id ax) = id (gz_loc a s) x. 

Lemma comp_gz_f orward : forall a s u v, 
localizing_system a s -> mor a u -> mor a v -> 
source u = target v -> 

comp (gz_loc a s) (gz_forward a s u) (gz_forward a s v) = 
gz_f orward a s (comp a u v) . 

Lemma are_inverse_gz_f orward_backward : forall a s q, 
localizing_system a s -> 

inc q s -> are_inverse (gz_loc a s) (gz_forward a s q) 
(gz_backward a s q) . 

Lemma invertible_gz_loc_gz_f orward : forall a s q, 
localizing_system a s -> inc q s -> 
invertible (gz_loc a s) (gz_f orward a s q) . 

End GZ_Def. 



4.2. The module GZ.Tnm. 

Module GZ_Thm. 

Export Ob_Iso_Functor . 

Export GZ_Def. 

Lemma inc_gz_f orward_mor_ image : forall a s u, 
localizing_system a s -> 

mor a u -> inc (gz_f orward a s u) (mor _ image (gz_proj as)). 

Lemma inc_gz_backward_add_inverses : 

forall a s q, 

localizing_system a s -> 

inc q s -> inc (gz_backward a s q) 

(add_inverses (gz_loc a s) (mor_image (gz_proj a s))). 

Lemma gz_loc_induction : forall a s (P:E->Prop), 
localizing_system a s -> 

(forall u, mor a u -> P (gz_f orward a s u) ) -> 
(forall q, inc q s -> P (gz_backward a s q) ) -> 
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(forall x, ob a x -> P (id (gz_loc as) x) ) -> 
(forall u v, mor (gz_loc a s) u -> 
mor (gz_loc as) v -> source u = target v -> 
P u -> P v -> P (comp (gz_loc as) u v)) -> 
(forall y, mor (gz_loc as) y -> P y) . 

Lemma gz_loc_subcategory_all_criterion : forall a s b, 
localizing_system a s -> is_subcategory b (gz_loc a s) -> 
(forall u, mor a u -> mor b (gz_forward a s u)) -> 
(forall q, inc q s -> mor b (gz_backward a s q)) -> 
b = gz_loc a s. 

Lemma add_inverses_mor_image_gz_proj_generates_gz_loc : forall a s, 
localizing_system a s -> 
generates (gz_loc a s) 

(add_inverses (gz_loc a s) (mor_image (gz_proj a s))). 

Lemma ob_gz_loc : forall a s x, 
localizing_system a s -> 
ob (gz_loc as) x = ob a x. 

Lemma ob_iso_gz_proj : forall a s, 
localizing_system a s -> ob_iso (gz_proj a s) . 

Lemma iso_to_subcategory_pull_gz_proj : forall a s b, 

localizing_system a s -> Category . axioms b -> 

iso_to_f ull_subcategory (pull_morphism b (gz_proj as)). 

Lemma gz_proj_epimorphic : forall a s f g, 
localizing_system a s -> Functor . axioms f -> 
Functor . axioms g -> source f = gz_loc a s -> 
source g = gz_loc a s -> 

fcompose f (gz_proj a s) = fcompose g (gz_proj a s) -> 
f = g- ~ ' ~ 

Definition loc_compatible a s f := 
localizing_system a s & 
Functor . axioms f & 
source f = a & 

(forall q, inc q s -> invertible (target f) (fmor f q)). 

Definition fr_dotted a s f := 
free_functor (gz_graph a s) (target f) 
(fun x => fob f x) 
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(fun u => Y (direction u = Forward) (fmor f (original_arrow u)) 
(inverse (target f) (fmor f (original_arrow u)))). 

Lemma backward_neq_f orward : Backward <> Forward. 

Lemma Y_etc_f orward_arrow : forall f u, 

Y (direction (f orward_arrow u) = Forward) 
(fmor f (original_arrow (f orward_arrow u))) 
(inverse (target f) 

(fmor f (original_arrow (f orward_arrow u) ) ) ) = fmor f u. 

Lemma Y_etc_backward_arrow : forall f q, 

Y (direction (backward_arrow q) = Forward) 
(fmor f (original_arrow (backward_arrow q) ) ) 
(inverse (target f) 

(fmor f (original_arrow (backward_arrow q) ) ) ) = 
inverse (target f ) (fmor f q) . 

Lemma f r_dotted_property : forall a s f, 
loc_compatible a s f -> f ree_f unctor_property 
(gz_graph a s) (target f) 
(fun x => fob f x) 

(fun u => Y (direction u = Forward) (fmor f (original_arrow u)) 
(inverse (target f) (fmor f (original_arrow u)))). 

Lemma source_f r_dotted : forall a s f, 
source (fr_dotted a s f) = gz_freecat a s. 

Lemma target_f r_dotted : forall a s f , 
target (fr_dotted a s f) = target f . 

Lemma f ob_f r_dotted : forall a s f x, 
loc_compatible a s f -> ob a x -> 
fob (fr_dotted a s f) x = fob f x. 

Lemma fmor_f r_dotted_f orward_edge : forall a s f u, 

loc_compatible a s f -> mor a u -> 

fmor (fr_dotted a s f) (f orward_edge u) = 

fmor f u. 

Lemma fmor_f r_dotted_backward_edge : forall a s f q, 
loc_compatible a s f -> inc q s -> 
fmor (fr_dotted a s f) (backward_edge q) = 
inverse (target f ) (fmor f q) . 

Lemma f r_dotted_axioms : forall a s f, 
loc_compatible a s f -> 
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Functor . axioms (fr_dotted a s f ) . 

Lemma compatible_gz_cer_f r_dotted : forall a s f, 
loc_compatible a s f -> 

compatible (gz_cer a s) (fr_dotted a s f ) . 

Definition gz_dotted a s f := 

qdotted (gz_cer a s) (fr_dotted a s f ) . 

Lemma source_gz_dotted : forall a s f, 
source (gz_dotted a s f) = gz_loc a s. 

Lemma target_gz_dotted : forall a s f , 
target (gz_dotted a s f) = target f . 

Lemma f ob_gz_dotted : forall a s f x, 
loc_compatible a s f -> ob a x -> 
fob (gz_dotted a s f) x = fob f x. 

Lemma fmor_gz_dotted_gz_f orward : forall a s f u, 
loc_compatible a s f -> mor a u -> 

fmor (gz_dotted a s f) (gz_f orward a s u) = fmor f u. 

Lemma fmor_gz_dotted_gz_backward : forall a s f q, 
loc_compatible a s f -> inc q s -> 
fmor (gz_dotted a s f) (gz_backward a s q) = 
inverse (target f ) (fmor f q) . 

Lemma gz_dotted_axioms : forall a s f , 

loc_compatible a s f -> 

Functor . axioms (gz_dotted a s f ) . 

Lemma f compose_gz_dotted_gz_proj : forall a s f , 
loc_compatible a s f -> 

f compose (gz_dotted a s f) (gz_proj as) = f. 

Lemma loc_compatible_f compose : forall a s g, 
localizing_system a s -> 
Functor . axioms g -> 
source g = gz_loc a s -> 

loc_compatible a s (f compose g (gz_proj as)). 

Lemma ob_image_pull_gz_proj : forall a s b f, 
localizing_system a s -> 
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Category. axioms b -> 

inc f (ob_image (pull_morphism b (gz_proj as))) = 
(Functor . axioms f & source f = a & target f = b & 
(forall q, inc q s -> invertible b (fmor f q))). 



End GZ_Thm. 
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5. The file left_fractions . v 

Require Export gzdef . 

5.1. The module Lef t_Fractions. 

Module Lef t_Fractions . 
Export GZ_Def. 

Definition lf_symbol f t := 

Arrow. create (source f) (source t) (pair f t) . 

Definition lf_forward v := prl (arrow v) . 
Definition lf_backward v := pr2 (arrow v) . 

Lemma source_lf _symbol : forall f t, source (lf_symbol f t) 
= source f. 

Lemma target_lf _symbol : forall f t, target (lf_symbol f t) 
= source t . 

Lemma If _f orward_lf _symbol : forall f t, lf_forward 
(lf_symbol ft) = f. 

Lemma If _backward_lf _symbol : forall f t, lf_backward 
(lf_symbol ft) = t. 

Definition If _symbol_like v := 

v = If _symbol (lf_forward v) (If _backward v) . 

Lemma If _symbol_like_lf _symbol : forall f t, 
If _symbol_like (lf_symbol f t) . 

Definition If _symbol_property a s f t := 

localizing_system a s & 

mor a f & inc t s & target f = target t . 

Definition is_lf_symbol a s v := 

If _symbol_like v & If _symbol_property a s (lf_forward v) 
(If _backward v) . 

Lemma is_lf _symbol_lf _symbol : forall a s f t, 
If _symbol_property a s f t -> 
is_lf_symbol a s (If _symbol f t) . 

Definition multiplicative_system as := 
localizing_system a s & 
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(forall y z, inc y s -> inc z s -> 

source y = target z -> inc (comp a y z) s) . 

Definition has_lef t_f ractions as := 

multiplicative_system a s 

& 

(forall x, ob a x -> inc (id a x) s) 
& 

(forall r g, inc r s -> mor a g -> source r = source g -> 
exists u, (is_lf _symbol a s u & source u = target r 
& target u = target g & comp a (If _backward u) g = 
comp a (lf_forward u) r)) 

& 

(forall v r t, inc v s -> mor a r -> mor a t -> 
source r = target v -> source t = target v -> 
comp a r v = comp a t v -> 

exists w, (inc w s & source w = target r & source w = target 
& comp a w r = comp a w t)) . 

Definition lf_choice a s r g := 

choose (fun u => (is_lf _symbol a s u & source u = target r 
& target u = target g & comp a (lf_backward u) g = 
comp a (lf_forward u) r)). 

Lemma is_lf _symbol_lf _choice : forall a s r g, 
has_left_f ractions a s -> 

inc r s -> mor a g -> source r = source g -> 
is_lf _symbol a s (If _choice a s r g) . 

Lemma source_lf _choice : forall a s r g, 
has_left_f ractions a s -> 

inc r s -> mor a g -> source r = source g -> 
source (lf_choice a s r g) = target r. 

Lemma target_lf _choice : forall a s r g, 
has_left_f ractions a s -> 

inc r s -> mor a g -> source r = source g -> 
target (lf_choice a s r g) = target g. 

Lemma comp_lf _backward_lf _choice : forall a s r g, 
has_left_f ractions a s -> 

inc r s -> mor a g -> source r = source g -> 
comp a (lf_backward (lf_choice a s r g)) g 
= comp a (lf_forward (lf_choice a s r g) ) r. 

Lemma source_lf _f orward : forall v, 

If _symbol_like v -> source (If _f orward v) = source v. 
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Lemma source_lf _backward : forall v, 

If _symbol_like v -> source (If _backward v) = target v. 
Lemma inc_ms_mor : forall a u, 

(exists s, (localizing_system a s & inc us)) -> 
mor a u. 

Lemma inc_hlf_mor : forall a u, 

(exists s, (has_left_f ractions a s & inc us)) -> 
mor a u. 

Definition lf_id_rep ax := 
lf_symbol (id a x) (id a x) . 

Lemma source_lf _id_rep : forall a x, 
ob a x -> source (lf_id_rep ax) = x. 

Lemma target_lf _id_rep : forall a x, 
ob a x -> target (lf_id_rep ax) = x. 

Lemma is_lf _symbol_lf _id_rep : forall a s x, 
has_lef t_f ractions a s -> ob a x -> 
is_lf _symbol a s (If _id_rep a x) . 

Definition lf_vertex v := 
target (If _backward v) . 

Lemma target_lf _f orward : forall u, 

(exists a, exists s, (is_lf _symbol a s u) ) -> 

target (If _f orward u) = lf_vertex u. 

Lemma target_lf _backward : forall u, 
target (lf_backward u) = lf_vertex u. 

Definition lf_extend a (s:E) p u := 

lf_symbol (comp a p (If _f orward u)) (comp a p (lf_backward 

Lemma mor_lf_f orward : forall a u, 
(exists s, is_lf_symbol a s u) -> 
mor a (lf_forward u) . 

Lemma inc_lf _backward : forall s u, 
(exists a, is_lf_symbol a s u) -> 
inc (lf_backward u) s. 

Lemma mor_lf _backward : forall a u, 
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(exists s, is_lf _symbol a s u) -> 
mor a (If _backward u) . 

Lemma is_lf _symbol_lf _extend : forall a s p u, 

has_lef t_f ractions a s -> 

is_lf_symbol a s u -> 

mor a p -> source p = lf_vertex u -> 

inc (comp a p (If _backward u)) s -> 

is_lf _symbol a s (If _extend a s p u) . 

Lemma source_lf _extend : forall a s p u, 
is_lf_symbol a s u -> 
mor a p -> source p = lf_vertex u -> 
source (lf_extend a s p u) = source u. 

Lemma target_lf _extend : forall a s p u, 
is_lf_symbol a s u -> 
mor a p -> source p = lf_vertex u -> 
target (lf_extend a s p u) = target u. 

Lemma If _f orward_lf _extend : forall a s p u, 

lf_forward (lf_extend a s p u) = comp a p (lf_forward u) 

Lemma If _backward_lf _extend : forall a s p u, 
lf_backward (lf_extend a s p u) = comp a p (lf_backward 

Lemma If _vertex_lf _extend : forall a s p u, 
has_left_f ractions a s -> 

is_lf_symbol a s u -> mor a p -> source p = lf_vertex u 
lf_vertex (lf_extend a s p u) = target p. 

Definition lf_beyond a s u v := 
has_left_f ractions a s & 

is_lf_symbol a s u & is_lf_symbol a s v & 
source u = source v & target u = target v & 
(exists p, (mor a p & source p = lf_vertex u & 
lf_extend a s p u = v)) . 

Definition lf_under a s u v := 
has_left_f ractions a s & 

is_lf_symbol a s u & is_lf_symbol a s v & 
source u = source v & target u = target v & 
(exists p, (inc p s & source p = lf_vertex u & 
lf_extend a s p u = v)). 

Lemma If _under_lf _beyond : forall a s u v, 
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lf_under a s u v -> lf_beyond a s u v. 

Lemma If _beyond_lf _extend : forall a s p u, 

has_lef t_f ractions a s -> 

is_lf_symbol a s u -> mor a p -> 

source p = lf_vertex u -> 

inc (comp a p (lf_backward u)) s -> 

If _beyond a s u (If _extend a s p u) . 

Lemma inc_comp : forall a s u v, 
multiplicative_system a s -> 
inc u s -> inc v s -> source u = target v -> 
inc (comp a u v) s . 

Lemma If _under_lf _extend : forall a s p u, 

has_left_f ractions a s -> 

is_lf_symbol a s u -> inc p s -> 

source p = lf_vertex u -> 

lf_under a s u (If _extend a s p u) . 

Lemma If _symbol_like_extens : forall u v, 
If _symbol_like u -> If _symbol_like v -> 

lf_forward u = lf_forward v -> lf_backward u = lf_backward v -> 
u = v. 

Lemma If _symbol_like_lf _extend : forall a s p u, 
If _symbol_like (If _extend a s p u) . 

Lemma If _extend_comp : forall a s u p q, 

is_lf_symbol a s u -> 

mor a p -> mor a q -> 

source q = lf_vertex u -> 

source p = target q -> 

lf_extend a s (comp a p q) u = 

If _extend asp (If _extend a s q u) . 

Lemma If _beyond_trans : forall a s u v w, 
lf_beyond a s u v -> lf_beyond a s v w -> 
lf_beyond a s u w. 

Lemma exists_lf _under : forall a s u v, 

lf_beyond a s u v -> exists w, 

(If _beyond a s v w & If _under a s u w) . 

Definition lf_equiv a s u v := 

(exists w, (lf_beyond a s u w & lf_beyond a s v w)). 
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Lemma If _equiv_symm : forall a s u v, 
lf_equiv a s u v -> lf_equiv a s v u. 

Lemma If _extend_id : forall a s u, 
is_lf_symbol a s u -> 

lf_extend a s (id a (lf_vertex u)) u = u. 

Lemma If _equiv_ref 1 : forall a s u, 

has_lef t_f ractions a s -> 

is_lf_symbol a s u -> lf_equiv a s u u. 

Lemma If _beyond_ref 1 : forall a s u, 

has_left_f ractions a s -> 

is_lf_symbol a s u -> lf_beyond a s u u. 

Lemma If _equiv_beyond_under : forall a s u v, 

lf_equiv a s u v -> exists w, 

(If _beyond a s u w & If _under a s v w) . 

Lemma exists_lf _f urther : forall a s u v w, 

lf_beyond a s u v -> lf_under a s u w -> 

exists z, (lf_beyond a s v z & lf_beyond a s w z) . 

Lemma If _equiv_trans : forall a s u w, 
has_left_f ractions a s -> 

(exists v, (lf_equiv a s u v & lf_equiv a s v w)) -> 
lf_equiv a s u w. 

Definition fills_in a s u v w := 
has_left_f ractions a s & 

is_lf_symbol a s u & is_lf_symbol a s v & is_lf_symbol a s w 

& source u = target v & source w = lf_vertex v & 

target w = lf_vertex u & 

comp a (lf_forward w) (lf_backward v) = 

comp a (If _backward w) (If _f orward u) . 

Definition lf_filler a s u v := 

If _choice a s (lf_backward v) (If _f orward u) . 

Definition If _make_comp a (s:E) u v w := 
lf_symbol (comp a (If _f orward w) (If _f orward v)) 
(comp a (lf_backward w) (lf_backward u)). 

Definition lf_comp_rep a s u v := 

If _make_comp a s u v (lf_f iller a s u v) . 
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Lemma f ills_in_lf _f iller : forall a s u v, 
has_lef t_f ractions a s -> 

is_lf_symbol a s u -> is_lf_symbol a s v -> 

source u = target v -> 

f ills_in a s u v (lf_f iller a s u v) . 

Lemma source_lf _make_comp : forall a s u v w, 
fills_in a s u v w -> 

source (If _make_comp a s u v w) = source v. 

Lemma target_lf _make_comp : forall a s u v w, 
fills_in a s u v w -> 

target (If _make_comp a s u v w) = target u. 

Lemma If _vertex_lf _make_comp : forall a s u v w, 
fills_in a s u v w -> 
lf_vertex (If _make_comp a s u v w) = 
lf_vertex w. 

Lemma is_lf _symbol_lf _make_comp : forall a s u v w, 
fills_in a s u v w -> 

is_lf _symbol a s (If _make_comp a s u v w) . 

Lemma If _f orward_lf _make_comp : forall a s u v w, 
lf_forward (If _make_comp a s u v w) = 
comp a (If _f orward w) (If _f orward v) . 

Lemma If _backward_lf _make_comp : forall a s u v w, 
lf_backward (If _make_comp a s u v w) = 
comp a (If _backward w) (If _backward u) . 

Lemma If _beyond_f ills_in : forall a s u v w, 
(exists y, (fills_in a s u v y & 
lf_beyond a s y w)) -> 
fills_in a s u v w. 

Lemma If _beyond_lf _make_comp : forall a s u v w y, 
fills_in a s u v w -> 
lf_beyond a s w y -> 

If _beyond a s (If _make_comp a s u v w) (If _make_comp a s u v y) . 

Definition lf_lean_to asefghij := 
has_left_f ractions a s & 

mor a e & mor a f & mor a g & mor a h & mor a i & mor a j & 
inc e s & inc h s & 

source e = source f & source g = target e & source h = target f 
& target g = target h & source i = target e & source j = target f 
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& target i = target j & 

comp a g e = comp a h f & comp a i e = comp a j f . 

Lemma show_lf _lean_to : f orall asefghij, 
has_lef t_f ractions a s -> 

mor a f -> mor a g -> mor a i -> mor a j -> 
inc e s -> inc h s -> 

source e = source f -> source g = target e -> source h = target f 
-> source i = target e -> source j = target f -> 
comp a g e = comp a h f -> comp a i e = comp a j f-> 
If _lean_to asefghij. 

Definition closes_lf _lean_to asefghij k 1 := 

lf_lean_to asefghijfe 

mor a k & mor a 1 & inc 1 s & 

source k = target g & source 1 = target i & 

target k = target 1 & 

comp a k g = comp a 1 i & comp a k h = comp a 1 j . 

Lemma If _lean_to_closure : f orall asef ghij, 
lf_lean_to asefghij -> 

(exists k, exists 1 , (closes_lf _lean_to asefghijk 1)). 

Definition weakly_reps_lf _comp a s u v w := 
has_left_f ractions a s & 

is_lf_symbol a s u & is_lf_symbol a s v & is_lf _symbol a s w 
& source u = target v & source w = source v & 
target w = target u & 

(exists p, exists q, ( mor a p & mor a q & 

source p = lf_vertex v & source q = lf_vertex u & 

target p = lf_vertex w & target q = lf_vertex w & 

comp a p (If _backward v) = comp a q (lf_forward u) & 

comp a p (lf_forward v) = lf_forward w & 

comp a q (lf_backward u) = lf_backward w) ) . 

Lemma weak_rep_lf _equiv : forall a s u v w y, 

fills_in a s u v y -> 

weakly_reps_lf _comp a s u v w -> 

If _equiv a s w (If _make_comp a s u v y) . 

Lemma If _beyond_weakly_reps_make_comp : forall a s u v w y, 
lf_beyond a s u w -> fills_in a s w v y -> 
weakly_reps_lf _comp a s u v (If _make_comp a s w v y) . 

Lemma weakly_reps_make_comp : forall a s u v y, 
fills_in a s u v y -> 
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weakly_reps_lf _comp a s u v (If _make_comp a s u v y) . 

Lemma source_lf _comp_rep : forall a s u v, 
has_lef t_f ractions a s -> 

is_lf_symbol a s u -> is_lf_symbol a s v -> 
source u = target v -> 

source (lf_comp_rep a s u v) = source v. 

Lemma target_lf _comp_rep : forall a s u v, 
has_left_f ractions a s -> 

is_lf_symbol a s u -> is_lf_symbol a s v -> 
source u = target v -> 

target (lf_comp_rep a s u v) = target u. 

Lemma is_lf _symbol_lf _comp_rep : forall a s u v, 
has_left_f ractions a s -> 

is_lf_symbol a s u -> is_lf_symbol a s v -> 

source u = target v -> 

is_lf _symbol a s (If _comp_rep a s u v) . 

Lemma weakly_reps_lf _comp_lf _comp_rep : forall a s u v, 
has_left_f ractions a s -> is_lf_symbol a s u -> 
is_lf_symbol a s v -> source u = target v -> 
weakly_reps_lf _comp a s u v (If _comp_rep a s u v) . 

Lemma If _equiv_lf _comp_rep : forall a s u v w, 

weakly_reps_lf _comp a s u v w -> 

If _equiv a s w (If _comp_rep a s u v) . 

Lemma weakly_reps_lf _comp_equiv : forall a s wl w2, 
(exists u, exists v, (weakly_reps_lf _comp a s u v wl & 
weakly_reps_lf _comp a s u v w2)) -> 
lf_equiv a s wl w2. 

Lemma weakly_reps_make_comp_beyond : forall a s u v ul vl y, 
has_left_f ractions a s -> lf_beyond a s u ul -> 
lf_beyond a s v vl -> source u = target v -> 
fills_in a s ul vl y -> 

weakly_reps_lf _comp a s u v (If _make_comp a s ul vl y) . 

Lemma weakly_reps_comp_rep_beyond : forall a s u v ul vl, 
has_left_f ractions a s -> lf_beyond a s u ul -> 
lf_beyond a s v vl -> source u = target v -> 
weakly_reps_lf _comp a s u v (If _comp_rep a s ul vl) . 
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Lemma If _comp_indep : forall a s u v ul vl, 

has_lef t_f ractions a s -> lf_equiv a s u ul -> 

lf_equiv a s v vl -> source u = target v -> 

lf_equiv a s (If _comp_rep a s u v) (If _comp_rep a s ul vl) . 



Lemma If _equiv_make_comp_comp_rep : forall a s u v y, 
fills_in a s u v y -> 

If _equiv a s (If _make_comp a s u v y) (If _comp_rep a s u v) . 



Definition 
fills_in a 
fills_in a 
fills_in a 



assoc_board asuvwxyz := 
s u v x & 
s v w y & 
s x y z . 



Definition ffb_symbol a (s:E) y z := 

(lf_symbol (comp a (lf_forward z) (lf_forward y) ) (lf_backward z)). 



Definition fbb_symbol a (s:E) x z := 

(lf_symbol (lf_forward z) (comp a (lf_backward z) (lf_backward x))). 

Definition f f b_symbol_f acts (asuvwxyz k:E) := 

lf_forward k = comp a (lf_forward z) (lf_forward y) & 

lf_backward k = lf_backward z & 

source k = lf_vertex w & 

target k = lf_vertex x & 

target (lf_forward k) = lf_vertex z & 

target (lf_backward k) = lf_vertex z & 

If _symbol_like k & 

mor a (lf_forward k) k 

mor a (lf_backward k) & 

inc (lf_backward k) s & 

is_lf_symbol a s k & 

fills_in a s (If _make_comp a s u v x) w k. 

Lemma get_f fb_symbol_f acts : forall asuvwxyz, 
assoc_board asuvwxyz -> 

f f b_symbol_f acts asuvwxyz (f fb_symbol a s y z) . 

Definition f bb_symbol_f acts (asuvwxyz k:E) := 
lf_forward k = lf_forward z & 

lf_backward k = comp a (lf_backward z) (lf_backward x) & 
source k = lf_vertex y & 
target k = lf_vertex u & 
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target (lf_forward k) = lf_vertex z & 

target (If _backward k) = lf_vertex z & 

If _symbol_like k & 

mor a (lf_forward k) k 

mor a (lf_backward k) & 

inc (lf_backward k) s & 

is_lf _symbol a s k & 

fills_in a s u (If _make_comp a s v w y) k. 

Lemma get_fbb_symbol_f acts : forall asuvwxyz, 
assoc_board asuvwxyz -> 

f bb_symbol_f acts asuvwxyz (fbb_symbol a s x z) . 

Lemma make_comp_assoc_board : forall asuvwxyz, 
assoc_board asuvwxyz -> 

lf_make_comp a s (If _make_comp a s u v x) w (ffb_symbol a s y z) = 
If _make_comp a s u (If _make_comp a s v w y) (fbb_symbol a s x z) . 

Lemma If _comp_rep_assoc : forall a s u v w, 
has_lef t_f ractions a s -> 

is_lf_symbol a s u -> is_lf_symbol a s v -> 
is_lf_symbol a s w -> 

source u = target v -> source v = target w -> 
lf_equiv a s (lf_comp_rep a s (lf_comp_rep a s u v) w) 
(lf_comp_rep a s u (If _comp_rep a s v w)). 

Definition lef t_id_f iller a (s:E) u := 
lf_symbol (id a (lf_vertex u)) (lf_backward u) . 

Definition right_id_f iller a (s:E) u := 
lf_symbol (lf_forward u) (id a (lf_vertex u) ) . 

Lemma ob_lf_vertex : forall a u, 
(exists s , (is_lf _symbol a s u)) -> 
ob a (If _vertex u) . 

Lemma source_left_id_f iller : forall a s u, 
is_lf_symbol a s u -> 

source (lef t_id_f iller a s u) = lf_vertex u. 

Lemma target_left_id_f iller : forall a s u, 
is_lf_symbol a s u -> 

target (lef t_id_f iller a s u) = target u. 

Lemma source_right_id_f iller : forall a s u, 
is_lf_symbol a s u -> 

source (right_id_f iller a s u) = source u. 
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Lemma target_right_id_f iller : forall a s u, 
is_lf_symbol a s u -> 

target (right_id_f iller a s u) = lf_vertex u. 

Lemma If _forward_left_id_f iller : forall a s u, 
is_lf_symbol a s u -> 

lf_forward (left_id_f iller a s u) = id a (lf_vertex u) . 

Lemma If _backward_left_id_f iller : forall a s u, 
is_lf_symbol a s u -> 

lf_backward (left_id_f iller a s u) = lf_backward u. 



Lemma If _forward_right_id_f iller : forall a s u, 
is_lf_symbol a s u -> 

lf_forward (right_id_f iller a s u) = lf_forward u. 

Lemma If _backward_right_id_f iller : forall a s u, 
is_lf_symbol a s u -> 

If _backward (right_id_f iller a s u) = id a (If _vertex u) . 

Lemma If _vertex_left_id_f iller : forall a s u, 
is_lf_symbol a s u -> 

lf_vertex (left_id_f iller a s u) = lf_vertex u. 



Lemma If _vertex_right_id_f iller : forall a s u, 
is_lf_symbol a s u -> 

lf_vertex (right_id_f iller a s u) = lf_vertex u. 

Lemma is_lf_symbol_left_id_f iller : forall a s u, 
is_lf_symbol a s u -> 

is_lf_symbol a s (left_id_f iller a s u) . 

Lemma is_lf_symbol_right_id_f iller : forall a s u, 
has_lef t_f ractions a s -> is_lf_symbol a s u -> 
is_lf _symbol a s (right_id_f iller a s u) . 

Lemma If _f orward_lf _id_rep : forall a x, 
lf_forward (lf_id_rep ax) = id a x. 

Lemma If _backward_lf _id_rep : forall a x, 
lf_backward (lf_id_rep a x) = id a x. 



Lemma fills_in_left_id_f iller : forall a s u, 

has_left_f ractions a s -> is_lf_symbol a s u -> 

fills_in a s (lf_id_rep a (target u)) u (left_id_f iller a s u) . 
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Lemma f ills_in_right_id_f iller : forall a s u, 

has_lef t_f ractions a s -> is_lf_symbol a s u -> 

fills_in a s u (lf_id_rep a (source u)) (right_id_f iller a s u) . 

Lemma If _make_comp_left_id_f iller : forall a s u, 
is_lf_symbol a s u -> 

lf_make_comp a s (lf_id_rep a (target u)) u 
(left_id_f iller a s u) = u. 

Lemma If _make_comp_right_id_f iller : forall a s u, 
is_lf_symbol a s u -> 

lf_make_comp a s u (lf_id_rep a (source u)) 
(right_id_f iller a s u) = u. 

Lemma lf_left_id : forall a s u, 
has_left_f ractions a s -> 
is_lf_symbol a s u -> 

lf_equiv a s (lf_comp_rep a s (lf_id_rep a (target u)) u) u. 

Lemma lf_right_id : forall a s u, 
has_left_f ractions a s -> 
is_lf_symbol a s u -> 

lf_equiv a s (lf_comp_rep a s u (lf_id_rep a (source u))) u. 

Definition taut_lf _symbol ay := 
lf_symbol y (id a (target y)). 

Lemma source_taut_lf _symbol : forall a y, 
source (taut_lf _symbol a y) = source y. 

Lemma target_taut_lf _symbol : forall a y, 
mor a y -> 

target (taut_lf _symbol a y) = target y. 

Lemma If _f orward_taut_lf _symbol : forall a y, 
lf_forward (taut_lf _symbol ay) = y. 

Lemma If _backward_taut_lf _symbol : forall a y, 

If _backward (taut_lf _symbol ay) = id a (target y) . 

Lemma If _vertex_taut_lf _symbol : forall a y, 
mor a y -> 

lf_vertex (taut_lf _symbol a y) = target y. 

Lemma is_lf _symbol_taut_lf _symbol : forall a s y, 
has_left_f ractions a s -> mor a y -> 
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is_lf _symbol a s (taut_lf _symbol a y) . 

Lemma taut_lf _symbol_id : forall a x, 
ob a x -> 

taut_lf _symbol a (id a x) = lf_id_rep a x. 

Lemma f ills_in_taut_lf _symbol : forall a s y z, 
has_lef t_f ractions a s -> 

mor a y -> mor a z -> source y = target z -> 
fills_in a s (taut_lf _symbol a y) 
(taut_lf _symbol a z) (taut_lf _symbol a y) . 

Lemma comp_taut_lf _symbol : forall a s y z, 
has_left_f ractions a s -> 

mor a y -> mor a z -> source y = target z -> 
lf_equiv a s 

(lf_comp_rep a s (taut_lf _symbol a y) (taut_lf _symbol a z)) 
(taut_lf _symbol a (comp a y z)). 



Definition inverse_lf _symbol ay := 
lf_symbol (id a (target y)) y. 

Lemma source_inverse_lf _symbol : forall a y, 
mor a y -> 

source (inverse_lf _symbol a y) = target y. 

Lemma target_inverse_lf _symbol : forall a y, 
mor a y -> 

target (inverse_lf _symbol a y) = source y. 

Lemma If _f orward_inverse_lf _symbol : forall a y, 

If _f orward (inverse_lf _symbol ay) = id a (target y) . 

Lemma If _backward_inverse_lf _symbol : forall a y, 
lf_backward (inverse_lf _symbol ay) = y. 

Lemma If _vertex_inverse_lf _symbol : forall a y, 
lf_vertex (inverse_lf _symbol a y) = target y. 

Lemma is_lf _symbol_inverse_lf _symbol : forall a s y, 
has_left_f ractions a s -> inc y s -> 
is_lf_symbol a s (inverse_lf _symbol a y) . 

Lemma f ills_in_lef t_lf _inverse : forall a s y, 
has_left_f ractions a s -> inc y s -> 
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fills_in a s (inverse_lf _symbol a y) (taut_lf _symbol a y) 
(lf_id_rep a (target y)). 

Lemma f ills_in_right_lf _inverse : forall a s y, 
has_lef t_f ractions a s -> inc y s -> 

fills_in a s (taut_lf _symbol a y) (inverse_lf _symbol a y) 
(lf_id_rep a (target y)). 

Lemma If _lef t_inverse : forall a s y, 
has_left_f ractions a s -> inc y s -> 
lf_equiv a s 

(lf_comp_rep a s (inverse_lf _symbol a y) (taut_lf _symbol ay)) 
(lf_id_rep a (source y)). 

Lemma If _right_inverse : forall a s y, 
has_left_f ractions a s -> inc y s -> 
lf_equiv a s 

(lf_comp_rep a s (taut_lf _symbol a y) (inverse_lf _symbol ay)) 
(lf_id_rep a (target y)). 

Lemma If _symbol_equiv : forall a s u, 
has_left_f ractions a s -> is_lf_symbol a s u -> 
lf_equiv a s u 
(lf_comp_rep a s 

(inverse_lf _symbol a (lf_backward u)) 
(taut_lf _symbol a (lf_forward u))). 

End Lef t_Fractions . 



5.2. The module Lef t_Fraction_Category. 

Module Lef t_Fraction_Category . 
Export Lef t_Fractions . 
Export Associating_Quotient . 

Definition If _symbol_container as := 

Image. create (Cartesian. product (morphisms a) s) 

(fun z => lf_symbol (prl z) (pr2 z)). 

Lemma inc_lf _symbol_container : forall a s u, 

is_lf_symbol a s u -> 

inc u (If _symbol_container a s) . 

Definition If _symbol_set as := 

Z (If _symbol_container a s) (is_lf _symbol a s) . 

Lemma inc_lf _symbol_set : forall a s u, 
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inc u (If _symbol_set a s) = is_lf _symbol a s u. 

Definition lfc_rqcat as := 

Category .Notations . create (objects a) 

(If _symbol_set a s) (If _comp_rep a s) (lf_id_rep a) (structure 

Lemma is_ob_lf c_rqcat : forall a s x, 

has_lef t_f ractions a s -> 

is_ob (lfc_rqcat as) x = ob a x. 

Lemma is_mor_lf c_rqcat : forall a s u, 
has_left_f ractions a s -> 

is_mor (lfc_rqcat a s) u = is_lf_symbol a s u. 

Lemma comp_lf c_rqcat : forall a s u v, 
has_left_f ractions a s -> 
is_lf_symbol a s u -> 
is_lf_symbol a s v -> 
source u = target v -> 

comp (lfc_rqcat as) u v = lf_comp_rep a s u v. 

Lemma id_lfc_rqcat : forall a s x, 
has_left_f ractions a s -> ob a x -> 
id (lfc_rqcat a s) x = lf_id_rep a x. 

Lemma rqcat_lf c_rqcat : forall a s, 
has_left_f ractions a s -> 
rqcat (If c_rqcat a s) . 

Definition lfer as := 

Z (Cartesian. product (If _symbol_set a s) (If _symbol_set as)) 
(fun z => lf_equiv a s (prl z) (pr2 z)). 

Lemma related_lfer : forall a s u v, 

has_left_f ractions a s -> 

related (lfer a s) u v = lf_equiv a s u v. 

Lemma related_lf er_rw : forall a s u v, 
has_left_f ractions a s -> 
related (lfer as) u v = 

(is_lf _symbol a s u & is_lf_symbol a s v & 
source u = source v & target u = target v & 
If _equiv a s u v) . 

Lemma inc_lfer : forall a s x, 
has_left_f ractions a s -> 
inc x (lfer a s) = 
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(is_pair x & (related (lfer a s) (prl x) (pr2 x) ) ) . 

Lemma If _equiv_properties : forall a s u v, 
lf_equiv a s u v -> 
(lf_equiv a s u v & 

is_lf_symbol a s u & is_lf_symbol a s v & 
ob a (source u) & ob a (target u) & 
ob a (source v) & ob a (target v) & 
source u = source v & target u = target v) . 

Lemma lf_ob_target : forall a u, 
(exists s, (is_lf _symbol a s u)) -> 
ob a (target u) . 

Lemma lf_ob_source : forall a u, 
(exists s, (is_lf _symbol a s u)) -> 
ob a (source u) . 

Lemma rqcat_equiv_rel_lf er : forall a s, 
has_lef t_f ractions a s -> 

rqcat_equiv_rel (If c_rqcat a s) (lfer a s) . 

Definition lef t_f rac_cat as := 
quotient_cat (If c_rqcat a s) (lfer a s) . 

Lemma lef t_f rac_cat_axioms : forall a s, 

has_left_f ractions a s -> 

Category. axioms (lef t_f rac_cat a s) . 

Definition lf_class a s u := arrow_class (lfer a s) 

Lemma source_lf _class : forall a s u, 
source (lf_class a s u) = source u. 

Lemma target_lf _class : forall a s u, 
target (lf_class a s u) = target u. 

Lemma ob_lef t_f rac_cat : forall a s x, 

has_left_f ractions a s -> 

ob (lef t_f rac_cat as) x = ob a x. 

Lemma mor_lef t_f rac_cat : forall a s v, 
has_left_f ractions a s -> 
mor (lef t_f rac_cat a s) v = 

(exists u, (is_lf _symbol a s u & v = lf_class a s u) 
Lemma comp_lef t_f rac_cat_lf _class : forall a s u v, 
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has_lef t_f ractions a s -> 

is_lf_symbol a s u -> is_lf_symbol a s v -> 
source u = target v -> 

comp (lef t_f rac_cat a s) (lf_class a s u) (lf_class a s v) = 
If _class a s (If _comp_rep a s u v) . 

Lemma id_lef t_f rac_cat : forall a s x, 
has_left_f ractions a s -> ob a x -> 

id (lef t_f rac_cat a s) x = If _class a s (If _id_rep a x) . 

Lemma eq_lf_class : forall a s u v, 
has_left_f ractions a s -> 

is_lf_symbol a s u -> is_lf_symbol a s v -> 

(If _class a s u = If _class a s v) = (If _equiv a s u v) . 

Definition lf_taut a s u := 

If _class a s (taut_lf _symbol a u) . 

Definition lf_inverse a s u := 
lf_class a s (inverse_lf _symbol a u) . 

Lemma source_lf _taut : forall a s u, 
source (lf_taut a s u) = source u. 

Lemma target_lf _taut : forall a s u, 
mor a u -> 

target (lf_taut a s u) = target u. 

Lemma source_lf _inverse : forall a s u, 
mor a u -> 

source (lf_inverse a s u) = target u. 

Lemma target_lf _inverse : forall a s u, 
mor a u -> 

target (lf_inverse a s u) = source u. 

Lemma mor_lf_taut : forall a s u, 
has_left_f ractions a s -> mor a u -> 
mor (lef t_f rac_cat a s) (If _taut a s u) . 

Lemma mor_lf _inverse : forall a s u, 
has_left_f ractions a s -> inc u s -> 
mor (lef t_f rac_cat a s) (If _inverse a s u) . 

Lemma lf_taut_id : forall a s x, 

has_left_f ractions a s -> ob a x -> 

lf_taut a s (id ax) = id (lef t_f rac_cat a s) x. 
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Lemma comp_lf _class : forall a s u v, 
has_lef t_f ractions a s -> 

is_lf_symbol a s u -> is_lf_symbol a s v -> 
source u = target v -> 

comp (lef t_f rac_cat a s) (lf_class a s u) (lf_class a s v) = 
If _class a s (If _comp_rep a s u v) . 

Lemma comp_lf_taut : forall a s u v, 
has_left_f ractions a s -> 

mor a u -> mor a v -> source u = target v -> 

comp (lef t_f rac_cat a s) (lf_taut a s u) (lf_taut a s v) = 

If _taut a s (comp a u v) . 

Lemma are_inverse_lf _taut_lf _inverse : forall a s u, 
has_left_f ractions a s -> inc u s -> 

are_inverse (lef t_f rac_cat a s) (If _taut a s u) (If _inverse a s u) . 

Lemma is_lf _symbol_arrow_rep : forall a s y, 
has_left_f ractions a s -> 
mor (lef t_f rac_cat as) y -> 
is_lf _symbol a s (arrow_rep y) . 

Lemma If _class_arrow_rep : forall a s y, 
has_left_f ractions a s -> 
mor (lef t_f rac_cat a s) y -> 
lf_class a s (arrow_rep y) = y. 

Lemma If _source_arrow_rep : forall y, 
(exists a, exists s, (has_left_f ractions a s & 
mor (lef t_f rac_cat as) y) ) -> 
source (arrow_rep y) = source y. 

Lemma If _target_arrow_rep : forall y, 
(exists a, exists s, (has_left_f ractions a s & 
mor (lef t_f rac_cat as) y) ) -> 
target (arrow_rep y) = target y. 

Lemma comp_etc_arrow_rep : forall a s y, 
has_left_f ractions a s -> 
mor (lef t_f rac_cat a s) y -> 
comp (lef t_f rac_cat a s) 

(lf_inverse a s (If _backward (arrow_rep y) ) ) 
(lf_taut a s (lf_forward (arrow_rep y))) = y. 

Lemma comp_etc_lf _symbol : forall ask, 
has_left_f ractions a s -> 
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is_lf _symbol a s k -> 

comp (lef t_f rac_cat a s) 

(lf_inverse a s (lf_backward k)) 

(lf_taut a s (lf_forward k)) = lf_class ask. 

Lemma If c_mor_expression : forall a s y, 
has_lef t_f ractions a s -> 
mor (lef t_f rac_cat as) y -> 

(exists u, exists v, (mor a u & inc v s & target u = target v & 
y = comp (lef t_f rac_cat a s) (lf_inverse a s v) (lf_taut a s u))). 

Definition lf_proj as := 

Functor . create a (lef t_f rac_cat a s) (lf_taut a s) . 

Lemma source_lf _proj : forall a s, 
source (lf_proj a s) = a. 

Lemma target_lf _proj : forall a s, 

target (If _proj a s) = (lef t_f rac_cat a s) . 

Lemma If _proj_property : forall a s, 
has_left_f ractions a s -> 

Functor .property a (lef t_f rac_cat a s) (fun (x:E)=> x) 
(If _taut a s) . 

Lemma If _proj_axioms : forall a s, 
has_left_f ractions a s -> 
Functor . axioms (lf_proj a s) . 

Lemma fob_lf_proj : forall a s x, 
has_left_f ractions a s -> ob a x -> 
fob (lf_proj as) x = x. 

Lemma fmor_lf_proj : forall a s y, 
has_left_f ractions a s -> mor a y -> 
fmor (lf_proj a s) y = lf_taut a s y. 

Lemma invertible_fmor_lf _proj : forall a s y, 
has_left_f ractions a s -> inc y s -> 

invertible (lef t_f rac_cat a s) (fmor (If _proj as) y) . 

Lemma inverse_fmor_lf _proj : forall a s y, 
has_left_f ractions a s -> inc y s -> 
inverse (lef t_f rac_cat a s) (fmor (lf_proj a s) y) = 
lf_inverse a s y. 
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Definition If _dotted_situation a s f := 
has_lef t_f ractions a s & 
Functor . axioms f & 
source f = a & 

(forall y, inc y s -> invertible (target f) (fmor f y)). 

Definition If _symb_dot_situation a s f u := 
If _dotted_situation a s f & 
is_lf_symbol a s u. 

Definition If _symb_dot_f acts a s f u:= 

If _symb_dot_situation a s f u & 

is_lf_symbol a s u & 

If _dotted_situation a s f & 

has_left_f ractions a s & 

Functor . axioms f & 

source f = a & 

(forall y, inc y s -> invertible (target f) (fmor f y)) & 
mor (source f) (lf_forward u) & 
mor (source f) (lf_backward u) & 
inc (lf_backward u) s & 

mor (target f) (fmor f (lf_forward u)) & 
mor (target f) (fmor f (lf_backward u)) & 
If _symbol_like u & 

source (fmor f (lf_forward u) ) = fob f (source u) & 

source (fmor f (lf_backward u)) = fob f (target u) & 

target (fmor f (lf_forward u)) = fob f (lf_vertex u) & 

target (fmor f (lf_backward u)) = fob f (lf_vertex u) & 

invertible (target f) (fmor f (lf_backward u)) & 

mor (target f) (inverse (target f) (fmor f (lf_backward u) ) ) & 

source (inverse (target f) (fmor f (lf_backward u))) = 

fob f (lf_vertex u) . 

Lemma If _symb_dot_situation_rw : forall a s f u, 

If _symb_dot_situation a s f u = If _symb_dot_f acts a s f u. 

Definition lf_symb_dot (a s:E) f u := 
comp (target f) 

(inverse (target f) (fmor f (lf_backward u))) 
(fmor f (lf_forward u) ) . 

Lemma source_lf _symb_dot : forall a s f u, 

If _symb_dot_situation a s f u -> 

source (If _symb_dot a s f u) = fob f (source u) . 

Lemma target_lf _symb_dot : forall a s f u, 
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If _symb_dot_situation a s f u -> 

target (If _symb_dot a s f u) = fob f (target u) . 

Lemma mor_lf _symb_dot : forall a s f u, 

If _symb_dot_situation a s f u -> 

mor (target f ) (lf_symb_dot a s f u) . 

Lemma If _symb_dot_beyond_invariant : forall a s f u v, 
If _symb_dot_situation a s f u -> 
lf_beyond a s u v -> 

lf_symb_dot a s f u = lf_symb_dot a s f v. 

Lemma If _symb_dot_equiv_invariant : forall a s f u v, 
If _symb_dot_situation a s f u -> 
lf_equiv a s u v -> 

lf_symb_dot a s f u = lf_symb_dot a s f v. 

Lemma If _symb_dot_make_comp : forall a s f u v w, 
If _symb_dot_situation a s f u -> 
If _symb_dot_situation a s f v -> 
fills_in a s u v w -> 

lf_symb_dot a s f (If _make_comp a s u v w) = 

comp (target f) (lf_symb_dot a s f u) (lf_symb_dot a s f 

Lemma If _symb_dot_comp_rep : forall a s f u v, 
If _symb_dot_situation a s f u -> 
If _symb_dot_situation a s f v -> 
source u = target v -> 

lf_symb_dot a s f (lf_comp_rep a s u v) = 

comp (target f) (lf_symb_dot a s f u) (lf_symb_dot a s f 

Lemma If _symb_dot_id_rep : forall a s f x, 
If _dotted_situation a s f -> 
ob a x -> 

lf_symb_dot a s f (lf_id_rep a x) = id (target f) (fob f 

Definition lf_dotted a s f := 

Functor . create (lef t_f rac_cat a s) (target f) 

(fun u => lf_symb_dot a s f (arrow_rep u) ) . 

Lemma source_lf _dotted : forall a s f, 
source (lf_dotted a s f) = lef t_f rac_cat a s. 

Lemma target_lf _dotted : forall a s f , 
target (lf_dotted a s f) = target f . 

Lemma If _equiv_arrow_rep_lf _class : forall a s u, 
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has_lef t_f ractions a s -> 
is_lf _symbol a s u -> 

lf_equiv a s u (arrow_rep (lf_class a s u)). 

Lemma If _dotted_property : forall a s f, 
If _dotted_situation a s f -> 

Functor .property (lef t_f rac_cat a s) (target f) 
(fob f) (fun u => If _symb_dot a s f (arrow_rep u)). 

Lemma If _dotted_axioms : forall a s f, 
If _dotted_situation a s f -> 
Functor . axioms (lf_dotted a s f ) . 

Lemma f ob_lf _dotted : forall a s f x, 
If _dotted_situation a s f -> 
ob a x -> 

fob (lf_dotted a s f) x = fob f x. 

Lemma fmor_lf _dotted : forall a s f u, 
mor (lef t_f rac_cat a s) u -> 

fmor (lf_dotted a s f ) u = lf_symb_dot a s f (arrow_rep u) . 

Lemma fmor_lf _dotted_lf _class : forall a s f u, 
If _dotted_situation a s f -> 
is_lf_symbol a s u -> 

fmor (lf_dotted a s f) (lf_class a s u) = lf_symb_dot a s f u. 

Lemma fmor_lf _dotted_lf _taut : forall a s f y, 
If _dotted_situation a s f -> 
mor a y -> 

fmor (lf_dotted a s f) (lf_taut a s y) = fmor f y. 

Lemma fmor_lf _dotted_lf _inverse : forall a s f y, 
If _dotted_situation a s f -> 
inc y s -> 

fmor (lf_dotted a s f) (lf_inverse a s y) = 
inverse (target f ) (fmor f y) . 

Lemma f compose_lf _dotted_lf _proj : forall a s f , 

If _dotted_situation a s f -> 

f compose (lf_dotted a s f) (lf_proj as) = f. 

Lemma If _dotted_like_unique : forall a s g h, 

has_left_f ractions a s -> 

Functor . axioms g -> Functor . axioms h -> 
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source g = lef t_f rac_cat a s -> 
source h = lef t_f rac_cat a s -> 

(f compose g (lf_proj a s) = f compose h (lf_proj as)) -> 
g = h. 



End Lef t_Fraction_Category . 
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6. The file gzloc.v 

Require Export lef t_f ractions . 

6.1. The module GZ_Localization. 

Module GZ_Localization. 
Export GZ_Thm. 

Export Lef t_Fraction_Category . 

Lemma localizing_system_recall : forall a s, 

localizing_system a s = 

(Category . axioms a & 

(forall u, inc u s -> mor a u)). 

Lemma multiplicative_system_recall : forall a s, 

multiplicative_system a s = 

(localizing_system a s & 

(forall y z, inc y s -> inc z s -> 

source y = target z -> inc (comp a y z) s)) . 

Definition localizes a s f := 
localizing_system a s & 
Functor . axioms f & 
source f = a & 

(forall y, inc y s -> invertible (target f) (fmor f y)). 
Definition completes_triangle f g h := 

Functor . axioms f & Functor . axioms g & Functor . axioms h & 
source f = source g & source h = target f & 
target h = target g & f compose h f = g. 

Definition dotted_choice f g := 
choose (completes_triangle f g) . 

Lemma completes_triangle_dotted_choice : forall f g, 
completes_triangle f g (dotted_choice f g) = 
(exists h, (completes_triangle f g h)). 

Definition is_localization a s f := 

localizes a s f & 

(forall g, (localizes a s g -> 

completes_triangle f g (dotted_choice f g))) & 

(forall g h, completes_triangle f g h -> 

h = dotted_choice f g) . 

Lemma dotted_choice_axioms : forall f g, 
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(exists a, exists s, (is_localization a s f 
Functor . axioms (dotted_choice f g) . 



localizes a s g)) -> 



Lemma source_dotted_choice : forall f g, 
(exists a, exists s, (is_localization a s f 
source (dotted_choice f g) = target f. 



localizes a s g)) -> 



Lemma target_dotted_choice : forall f g, 
(exists a, exists s, (is_localization a s f 
target (dotted_choice f g) = target g. 



localizes a s g)) -> 



Lemma f compose_dotted_choice : forall f g, 
(exists a, exists s, (is_localization a s f 
fcompose (dotted_choice f g) f = g. 



localizes a s g)) -> 



Lemma localizes_f compose : forall a s f g, 

localizes a s f -> Functor . axioms g -> source g = target f -> 
localizes a s (fcompose g f ) . 



Lemma eq_dotted_choice : forall f g h, 
completes_triangle f g h -> 

(exists a, exists s, (is_localization a s f)) -> 
h = dotted_choice f g. 



Lemma f compose_dotted_choice_dotted_choice : forall f g h, 

(exists a, exists s, (is_localization a s f & is_localization a s g & 

localizes ash)) -> 

fcompose (dotted_choice g h) (dotted_choice f g) = 
dotted_choice f h. 



Lemma dotted_choice_ref 1 : forall f , 

(exists a, exists s, (is_localization a s f)) -> 

dotted_choice f f = f identity (target f ) . 



Lemma are_f inverse_dotted_choice : forall f g, 
(exists a, exists s, 

(is_localization a s f & is_localization a s g)) -> 
are_f inverse (dotted_choice f g) (dotted_choice g f ) . 

Lemma has_f inverse_dotted_choice : forall f g, 
(exists a, exists s, 

(is_localization a s f & is_localization a s g)) -> 
has_f inverse (dotted_choice f g) . 

Lemma f inverse_dotted_choice : forall f g, 
(exists a, exists s, 
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(is_localization a s f & is_localization a s g)) -> 
f inverse (dotted_choice f g) = dotted_choice g f . 

Lemma is_localization_gz_proj : forall a s, 
localizing_system a s -> 
is_localization a s (gz_proj a s) . 

Lemma is_localization_lf _proj : forall a s, 
has_lef t_f ractions a s -> 
is_localization a s (If _proj a s) . 

Lemma are_f inverse_dotted_choice_gz_proj_lf _proj : forall a s, 
has_left_f ractions a s -> 

are_f inverse (dotted_choice (gz_proj a s) (lf_proj as)) 
(dotted_choice (lf_proj a s) (gz_proj as)). 

Definition oppms s := Image. create s flip. 

Lemma inc_oppms : forall s y, 
inc y (oppms s) = inc (flip y) s. 

Lemma oppms_oppms : forall s, oppms (oppms s) = s. 
Lemma localizing_system_oppms : forall a s, 

localizing_system (opp a) (oppms s) = localizing_system a s. 

Lemma multiplicative_system_oppms : forall a s, 
multiplicative_system (opp a) (oppms s) = 
multiplicative_system a s. 

Lemma are_inverse_opp : forall a u v, 
are_inverse (opp a) (flip u) (flip v) = 
are_inverse a u v. 

Lemma invertible_opp : forall a u, 
invertible (opp a) (flip u) = 
invert ible a u. 

Lemma localizes_oppms_oppf : forall a s f , 
localizes (opp a) (oppms s) (oppf f) = 
localizes a s f. 

Lemma completes_triangle_oppf : forall f g h, 
completes_triangle (oppf f) (oppf g) (oppf h) = 
completes_triangle f g h. 
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Lemma is_localization_oppms_oppf : forall a s f, 
is_localization (opp a) (oppms s) (oppf f) = 
is_localization a s f . 

Lemma has_lef t_f ractions_rw : forall a s, 
has_lef t_f ractions a s = ( 
multiplicative_system a s 
& 

(forall x, ob a x -> inc (id a x) s) 
& 

(forall r g, inc r s -> mor a g -> source r = source g -> 

exists p, exists q, (mor a p & inc q s 

& target p = target q & source p = target r 

& source q = target g & comp a q g = 

comp a p r)) 

& 

(forall v r t, inc v s -> mor a r -> mor a t -> 
source r = target v -> source t = target v -> 
comp a r v = comp a t v -> 

exists w, (inc w s & source w = target r & source w = target t 
& comp a w r = comp a w t))) . 

Definition has_right_f ractions as := 

multiplicative_system a s 

& 

(forall x, ob a x -> inc (id a x) s) 
& 

(forall r g, inc r s -> mor a g -> target r = target g -> 

exists p, exists q, (mor a q & inc p s & 

source p = source q & target p = source g & 

target q = source r & comp a g p = 

comp a r q) ) 

& 

(forall v r t, inc v s -> mor a r -> mor a t -> 
source v = target r -> source v = target t -> 
comp a v r = comp a v t -> 

exists w, (inc w s & source r = target w & source t = target w 
& comp a r w = comp a t w) ) . 

Lemma has_right_f ractions_rw : forall a s, 

has_right_f ractions a s = 

has_left_f ractions (opp a) (oppms s) . 

Definition right_f rac_cat as := 

opp (lef t_f rac_cat (opp a) (oppms s)). 
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Definition rf_proj a s := 

oppf (lf_proj (opp a) (oppms s)). 

Lemma right_f rac_cat_axioms : forall a s, 

has_right_f ractions a s -> 

Category. axioms (right_f rac_cat a s) . 

Lemma rf _proj_axioms : forall a s, 
has_right_f ractions a s -> 
Functor . axioms (rf_proj a s) . 

Lemma source_rf _proj : forall a s, 
has_right_f ractions a s -> 
source (rf_proj a s) = a. 

Lemma target_rf _proj : forall a s, 

has_right_f ractions a s -> 

target (rf_proj a s) = right_f rac_cat a s. 

Lemma is_localization_rf _proj : forall a s, 
has_right_f ractions a s -> 
is_localization a s (rf _proj a s) . 

Definition lf_vee a s p q := 
localizing_system a s & 

mor a p & inc q s & target p = target q. 

Definition If _vee_image f p q := 

comp (target f) (inverse (target f) (fmor f q)) 

(fmor f p) . 

Definition If _vee_equivalent a s p q r t := 

lf_vee a s p q & lf_vee a s r t & 

source p = source r & source q = source t & 

(exists y, exists z, (mor a y & mor a z & 

source y = target p & source z = target r & 

target y = target z & 

comp a y p = comp a z r & 

comp a y q = comp a z t & 

inc (comp a y q) s) ) . 

Definition lef t_f raction_description a s f := 
localizes a s f & 
ob_iso f 
& 
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(forall y, mor (target f) y -> 
exists p, exists q, (lf_vee a s p q & 
y = If _vee_image f p q)) 
& 

(forall p q r t, lf_vee a s p q -> lf_vee a s r t -> 
(If _vee_image f p q = lf_vee_image f r t) -> 
If _vee_equivalent a s p q r t) . 

Definition rf_wedge a s p q := 
localizing_system a s & 

mor a p & inc q s & source p = source q. 
Definition rf _wedge_image f p q := 

comp (target f) (fmor f p) (inverse (target f) (fmor f q)). 

Definition rf _wedge_equivalent a s p q r t := 
rf_wedge a s p q & rf_wedge a s r t & 
target p = target r & target q = target t & 
(exists y, exists z, (mor a y & mor a z & 
target y = source p & target z = source r & 
source y = source z & 
comp a p y = comp a r z & 
comp a q y = comp a t z & 
inc (comp a q y) s)) . 

Definition right_f raction_description a s f := 
localizes a s f & 
ob_iso f 
& 

(forall y, mor (target f) y -> 

exists p, exists q, (rf_wedge a s p q & 

y = rf _wedge_image f p q)) 

& 

(forall p q r t, rf_wedge a s p q -> rf_wedge a s r t -> 
(rf _wedge_image f p q = rf _wedge_image f r t) -> 
rf _wedge_equivalent a s p q r t) . 

Lemma If _vee_image_lf _proj : forall a s p q, 

has_lef t_f ractions a s -> 

lf_vee a s p q -> 

lf_vee_image (lf_proj as) p q = 

lf_class a s (If _symbol p q) . 

Lemma lef t_f raction_description_lf _proj : forall a s, 
has_left_f ractions a s -> 
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lef t_f raction_description a s (If _proj a s) . 

Lemma mor_lf _vee_image : forall f p q, 
(exists a, exists s, (lf_vee a s p q & 
localizes a s f)) -> 
mor (target f) (If _vee_image f p q) . 

Lemma If _vee_image_f compose : forall f g p q, 

Functor . axioms f -> Functor . axioms g -> source f = target g -> 

mor (source g) p -> mor (source g) q -> 

invertible (source f) (fmor g q) -> 

target p = target q -> 

lf_vee_image (fcompose f g) p q = 

fmor f (If _vee_image g p q) . 

Lemma lef t_f raction_description_invariant : forall a s f g, 
lef t_f raction_description a s f -> 
has_f inverse g -> 
source g = target f -> 

lef t_f raction_description a s (fcompose g f ) . 

Lemma lef t_f raction_description_f or_loc : forall a s f, 

has_lef t_f ractions a s -> 

is_localization a s f -> 

lef t_f raction_description a s f . 

Lemma lef t_f raction_description_gz_proj : 
forall a s, 

has_left_f ractions a s -> 

lef t_f raction_description a s (gz_proj a s) . 

Lemma inverse_opp : forall a u, 
invertible a (flip u) -> 

inverse (opp a) u = flip (inverse a (flip u) ) . 

Lemma right_f raction_description_rw : forall a s f , 
right_f raction_description a s f = 

lef t_f raction_description (opp a) (oppms s) (oppf f ) . 

Lemma right_f raction_description_f or_loc : forall a s f , 

has_right_f ractions a s -> 

is_localization a s f -> 

right_f raction_description a s f . 

Lemma right_f raction_description_gz_proj : forall a s, 
has_right_f ractions a s -> 

right_f raction_description a s (gz_proj a s) . 
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End GZ_Localization. 
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7. The file lfcx.v 

Require Export updateA. 
Require Export gzloc . 

7.1. The module Coarse_Cat. 

Module Coarse_Cat . 
Export GZ_Localization. 

Definition null_arrow a b := Arrow. create a b emptyset . 

Lemma source_null_arrow : forall a b, source (null_arrow a b) = a. 

Lemma target_null_arrow : forall a b, target (null_arrow a b) = b. 

Lemma arrow_null_arrow : forall a b, 
arrow (null_arrow a b) = emptyset . 

Definition na_comp u v := null_arrow (source v) (target u) . 

Lemma source_na_comp : forall u v, source (na_comp u v) = source v. 

Lemma target _na_comp : forall u v, target (na_comp u v) = target u. 

Definition is_null_arrow u := u = null_arrow (source u) (target u) . 

Lemma is_null_arrow_null_arrow : forall a b, 
is_null_arrow (null_arrow a b) . 

Lemma is_null_arrow_na_comp : forall u v, 
is_null_arrow (na_comp u v) . 

Lemma null_arrow_extensionality : forall a b, 

is_null_arrow a -> is_null_arrow b -> 

source a = source b -> target a = target b -> a = b. 

Lemma na_comp_assoc : forall a b c, 

na_comp (na_comp a b) c = na_comp a (na_comp b c) . 

Lemma na_comp_null_arrow : forall abed, 
na_comp (null_arrow a b) (null_arrow c d) = 
null_arrow c b. 

Lemma na_left_id : forall a u, 
is_null_arrow a -> 

u = null_arrow (target a) (target a) -> 
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na_comp u a = a. 

Lemma na_right_id : forall a u, 
is_null_arrow a -> 

u = null_arrow (source a) (source a) -> 
na_comp a u = a. 

Definition coarse_arrows z := 

Image. create (product z z) 

(fun x => null_arrow (prl x) (pr2 x)). 

Lemma inc_coarse_arrows : forall u z, 
inc u (coarse_arrows z) = 

(is_null_arrow u & inc (source u) z & inc (target u) 
Definition coarse_cat z := 

Category .Notations . create z (coarse_arrows z) 
na_comp (fun x => null_arrow x x) emptyset . 

Lemma is_ob_coarse_cat : forall x z, 
is_ob (coarse_cat z) x = inc x z. 

Lemma is_mor_coarse_cat : forall u z, 
is_mor (coarse_cat z) u = 

(is_null_arrow u & inc (source u) z & inc (target u) 

Lemma comp_coarse_catl : forall u v z, 

is_mor (coarse_cat z) u -> is_mor (coarse_cat z) v -> 

source u = target v -> 

comp (coarse_cat z) u v = na_comp u v. 

Lemma id_coarse_cat : forall x z, 

inc x z -> id (coarse_cat z) x = null_arrow x x. 

Lemma coarse_cat_axioms : forall z, 
Category. axioms (coarse_cat z) . 

Lemma ob_coarse_cat : forall x z, 
ob (coarse_cat z) x = inc x z. 

Lemma mor_coarse_cat : forall u z, 
mor (coarse_cat z) u = 

(is_null_arrow u & inc (source u) z & inc (target u) 

Lemma comp_coarse_cat : forall u v z, 

mor (coarse_cat z) u -> mor (coarse_cat z) v -> 
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source u = target v -> 

comp (coarse_cat z) u v = na_comp u v. 

End Coarse_Cat . 



7.2. The module Lf .Counterexample. 

Module Lf .Counterexample . 

Export Coarse_Cat . 

Export Lef t_Fraction_Category . 



Inductive cx_ob 
isO 



isl 
is2 



E -> Prop := 
cx_ob (R 0) | 
cx_ob (R 1) | 
cx_ob (R 2) . 



Ltac is_cx_ob := 

match goal with 

I |- cx_ob (R 0) => ap isO 

I |- cx_ob (R 1) => ap isl 

I |- cx_ob (R 2) => ap is2 

I _ => fail end. 

Lemma cx_ob_rw : forall x, 
cx_ob x = inc x (R 3) . 



Notation naOO 
Notation nail 
Notation na22 



(null_arrow (R 0) (R 0)) 
(null_arrow (R 1) (R 1)) 
(null_arrow (R 2) (R 2)) 



Notation naOl 
Notation na02 



(null_arrow (R 0) (R 1)) 
(null_arrow (R 0) (R 2)) 



Notation nal2 
Notation na21 



(null_arrow (R 1) (R 2)) 
(null_arrow (R 2) (R 1)) 



Inductive cx_mor : E -> Prop 



isOO 
isll 
is22 
isOl 
is02 
isl2 
is21 



cx_mor naOO 
cx_mor nail 
cx_mor na22 
cx_mor naOl 
cx_mor na02 
cx_mor nal2 
cx_mor na21 



Ltac is_cx_mor := 
match goal with 
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- cx_mor naOO 

- cx_mor nail 

- cx_mor na22 

- cx_mor naOl 

- cx_mor na02 

- cx_mor nal2 

- cx_mor na21 
=> fail end. 



=> ap isOO 
=> ap isll 
=> ap is22 
=> ap isOl 
=> ap is02 
=> ap isl2 
=> ap is21 



Lemma cx_mor_mor : forall u, cx_mor u -> 
mor (coarse_cat (R 3)) u. 

Definition cx := subcategory (coarse_cat (R 3)) 
cx_ob cx_mor. 

Ltac R_nat_discriminate := 

match goal with 

I idl : R ?X1 = R ?X2 I - _ => 

assert (discr : XI = X2) ; [app R_inj | discriminate discr] 

I _ => fail 

end. 

Lemma cx_property : subcategory _property (coarse_cat (R 3)) 
cx_ob cx_mor. 

Lemma cx_axioms : Category . axioms cx. 

Lemma ob_cx : forall x, ob cx x = cx_ob x. 

Lemma mor_cx : forall u, mor cx u = cx_mor u. 

Inductive in_cx_sys : E -> Prop := 

sysOO : in_cx_sys naOO | 

sysll : in_cx_sys nail | 

sys22 : in_cx_sys na22 | 

sysOl : in_cx_sys naOl | 

sys02 : in_cx_sys na02. 

Ltac is_cx_sys := 
match goal with 



- in. 


.cx_ 


sys 


naOO 


=> 


ap 


sysOO 


- in. 


_cx_ 


sys 


nail 


=> 


ap 


sysll 


- in. 


_cx_ 


sys 


na22 


=> 


ap 


sys22 


- in. 


_cx_ 


sys 


naOl 


=> 


ap 


sysOl 


- in. 


.cx_ 


sys 


na02 


=> 


ap 


sys02 



=> fail end. 
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Definition cx_sys := Z (morphisms cx) in_cx_sys. 

Lemma inc_cx_sys : forall u, 
inc u cx_sys = in_cx_sys u. 

Lemma source_null_arrow_eq : forall abed, 
null_arrow a b = null_arrow c d -> a = c . 

Lemma target_null_arrow_eq : forall abed, 
null_arrow a b = null_arrow c d -> b = d. 

Lemma cx_sys_rw : forall u, 

inc u cx_sys = (in_cx_sys u & 

mor cx u & cx_mor u & ~u=nal2 & ~u=na21) . 

Lemma comp_cx : forall u v, 

mor cx u -> mor cx v -> source u = target v -> 
comp cx u v = na_comp u v. 

Lemma id_cx : forall x, 

ob cx x -> id cx x = null_arrow x x. 

Lemma localizing_system_cx_sys : 
localizing_system cx cx_sys. 

Lemma multiplicative_system_cx_sys : 
multiplicative_system cx cx_sys . 

Lemma has_lef t_f ractions_cx_sys : 
has_lef t_f ractions cx cx_sys. 

Definition If 110 := lf_symbol nail naOl. 

Definition If 120 := lf_symbol nal2 na02. 

Lemma Iff 110 : lf_forward If 110 = nail. 

Lemma lfbllO : lf_backward If 110 = naOl. 

Lemma lffl20 : lf_forward lfl20 = nal2. 

Lemma lfbl20 : lf_backward If 120 = na02. 

Lemma is_lf _symbol_lf 110 : is_lf_symbol cx cx_sys lfllO. 
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Lemma is_lf _symbol_lf 120 : is_lf_symbol cx cx_sys If 120. 



Lemma lfvllO : lf_vertex If 110 = R 1. 

Lemma lfvl20 : lf_vertex If 120 = R 2. 

Lemma under_lf 110_same : forall u, 
lf_under cx cx_sys If 110 u -> u = If 110. 

Lemma under_lf 120_same : forall u, 
lf_under cx cx_sys If 120 u -> u = If 120. 

Lemma If 110_dif f erent_lf 120 : "If 110 = If 120. 

Lemma If _beyond_lf 110_lf 120 : lf_beyond cx cx_sys If 110 If 120. 

Lemma beyond_not_under_counterexample : 
exists a, exists s, exists u, exists v, 
(has_lef t_f ractions a s & 
is_lf_symbol a s u & 
is_lf_symbol a s v & 
lf_beyond a s u v & 

"(exists w, (lf_under a s u w & lf_under a s v w) ) ) . 
End Lf Counterexample . 
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8. The file infinite. v 

Require Export gzloc . 
Require Export cardinal . 

8.1. The module Infinite. 

Module Infinite. 
Export UpdateA. 
Export Cardinal . 

Lemma is_inf inite_rwl : forall x, 
is_infinite x = 

(exists f, Transformation. injective x x f & 
~ (Transformation. surjective x x f)). 

Lemma is_inf inite_rw : forall x, 
is_infinite x = 

(exists f, exists u, (inc u x & Transformation. injective x x f & 
(forall v, inc v x -> (f v = u)))). 

Lemma inf inite_sub_inf inite : forall x, 

(exists y, (is_inf inite y & sub y x) ) -> is_inf inite x. 

Lemma is_f inite_natural : forall x, inc x nat -> 
is_finite x. 

Lemma is_inf inite_nat : is_inf inite nat. 

Lemma is_f inite_cardinality : forall x, 
is_finite (cardinality x) = is_finite x. 

Lemma is_inf inite_cardinality : forall x, 
is_inf inite (cardinality x) = is_inf inite x. 

Definition natE : E. 

Lemma is_ordinal_nat : is_ordinal nat . 

Lemma inc_cardinality_nat_or_sub_nat_cardinality : forall x, 
(inc (cardinality x) nat) \/ (sub nat (cardinality x)). 

Lemma is_f inite_inc_cardinality_nat : forall x, 
is_f inite x = inc (cardinality x) nat. 

Lemma is_inf inite_sub_nat_cardinality : forall x, 
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is_inf inite x = sub nat (cardinality x) . 

Definition plus_one x := tack_on x x. 

Lemma is_ordinal_plus_one : forall x, 
is_ordinal x -> is_ordinal (plus_one x) . 

Lemma plus_one_R : forall (i:nat), 
plus_one (R i) = R (i+1) . 

Lemma inc_plus_one_nat : forall x, 
inc x nat -> inc (plus_one x) nat . 

Lemma function_V_tack_on_old : forall f x y z, 
Function. axioms f -> ~inc x (domain f) -> 
inc z (domain f) -> 

V z (tack_on f (pair x y)) = V z f. 

Lemma function_V_tack_on_new : forall f x y z, 
Function. axioms f -> ~inc x (domain f) -> 
z = x -> 

V z (tack_on f (pair x y)) = y. 

Lemma are_isomorphic_tack_on : forall x y u v, 
~inc y x -> ~inc v u -> 
are_isomorphic x u -> 

are_isomorphic (tack_on x y) (tack_on u v) . 

Lemma nat_are_isomorphic_eq : forall x y, 

inc x nat -> inc y nat -> are_isomorphic x y -> 

x = y. 

Lemma nat_cardinality_ref 1 : forall x, 
inc x nat -> cardinality x = x. 

Lemma cardinality_tack_on : forall x y, 
is_finite x -> ~inc y x -> 

cardinality (tack_on x y) = plus_one (cardinality x) . 
Definition number x := Bnat (cardinality x) . 
Lemma R_number : forall x, 

is_f inite x -> R (number x) = cardinality x. 

Lemma cardinality_emptyset : 
cardinality emptyset = emptyset . 
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Lemma number_emptyset : forall x, 
x = emptyset -> number x = . 

Lemma number_tack_on : forall x y, 

is_finite x -> ~inc y x -> 

number (tack_on x y) = (number x) + 1 . 

Definition take_out x y := 
complement x (singleton y) . 

Lemma inc_take_out : forall x y z, 
inc z (take_out x y) = 
(inc z x & ~z=y) . 

Lemma tack_on_take_out : forall x y, 
inc y x -> 

tack_on (take_out x y) y = x. 

Lemma not_inc_take_out : forall x y, 
~inc y (take_out x y) . 



Lemma subset_f inite : forall x, 

(exists y, (sub x y & is_f inite y) ) -> is_f inite x. 

Lemma is_f inite_take_out : forall x y, 
is_f inite x -> is_f inite (take_out x y) . 



Lemma number_take_out : forall x y, 

is_f inite x -> inc y x -> number (take_out x y) = (number x) -1. 



Lemma number_zero_emptyset : forall x, 

is_f inite x -> number x = -> x = emptyset. 

Lemma number_gt_zero_nonempty : forall x, 
is_f inite x -> number x > -> 
(exists y, inc y x) . 

Lemma f inite_induction: forall (p:EP) x, 
(p emptyset) -> 

(forall y z, p y -> p (tack_on y z)) -> 
is_finite x -> p x. 



Lemma image_create_tack_on : forall x y f, 
Image. create (tack_on x y) f = 
tack_on (Image . create x f) (f y) . 



Lemma image_create_emptyset : forall f, 
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Image. create emptyset f = emptyset . 

Lemma image_f inite : forall x f, 

is_finite x -> is_finite (Image . create x f ) . 

Definition is_ordinal_pair x := 

is_pair x & is_ordinal (prl x) & is_ordinal (pr2 x) . 

Definition op_lex_lt x y := 

is_ordinal_pair x & 

is_ordinal_pair y & 

(ordinal_lt (prl x) (prl y) \/ 

(prl x = prl y & ordinal_lt (pr2 x) (pr2 y) ) ) . 

Definition op_lex_leq x y := 

is_ordinal_pair x & 

is_ordinal_pair y & 

(ordinal_lt (prl x) (prl y) \/ 

(prl x = prl y & ordinal_leq (pr2 x) (pr2 y) ) ) . 

Lemma ordinal_leq_ref 1 : forall x, 
is_ordinal x -> ordinal_leq x x. 

Lemma ordinal_lt_leq : forall x y, 
ordinal_lt x y -> ordinal_leq x y. 

Lemma ordinal_leq_rw : forall x y, 
ordinal_leq x y = 

(ordinal_lt x y \/ (x = y & is_ordinal x) ) . 

Lemma op_lex_lt_leq : forall x y, 
op_lex_lt x y -> op_lex_leq x y. 

Lemma op_lex_leq_ref 1 : forall x, 
is_ordinal_pair x -> op_lex_leq x x. 

Lemma op_lex_leq_rw : forall x y, 
op_lex_leq x y = 

(op_lex_lt x y \/ (x = y & is_ordinal_pair x)). 

Lemma not_ordinal_lt_ref 1 : forall x, 
~(ordinal_lt x x) . 

Lemma not_op_lex_lt_ref 1 : forall x, 
(op_lex_lt x x) . 
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Lemma ordinal_lt_trans : forall x z, 

(exists y, (ordinal_lt x y & ordinal_lt y z)) -> 

ordinal_lt x z. 

Lemma op_lex_lt_trans : forall x z, 

(exists y, (op_lex_lt x y & op_lex_lt y z)) -> 

op_lex_lt x z. 

Lemma op_lex_leq_trans : forall x z, 

(exists y, (op_lex_leq x y & op_lex_leq y z)) -> 

op_lex_leq x z. 

Lemma not_ordinal_lt_lt : forall x y, 
ordinal_lt x y -> ordinal_lt y x -> False. 

Lemma not_op_lex_lt_lt : forall x y, 
op_lex_lt x y -> op_lex_lt y x -> False. 

Lemma op_lex_leq_leq_eq : forall x y, 
op_lex_leq x y -> op_lex_leq y x -> x = y. 

Lemma op_lex_dichotomy : forall x y, 
is_ordinal_pair x -> is_ordinal_pair y -> 
(op_lex_lt x y \/ op_lex_lt y x \/ x = y) . 

Definition least_ordinal z := sow (fun x => inc x 

Lemma is_ordinal_least_ordinal : forall z, 
is_ordinal (least_ordinal z) . 

Lemma inc_least_ordinal_ex : forall z, 
(exists y, (inc y z & is_ordinal y) ) -> 
inc (least_ordinal z) z. 

Definition set_of _ordinals z := 
(forall y, inc y z -> is_ordinal y) . 

Lemma inc_least_ordinal : forall z, 
set_of _ordinals z -> nonempty z -> 
inc (least_ordinal z) z. 

Lemma ordinal_leq_least_ordinal : forall y z, 
inc y z -> is_ordinal y -> 
ordinal_leq (least_ordinal z) y. 

Definition set_of _ordinal_pairs z := 
(forall y, inc y z -> is_ordinal_pair y) . 
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Lemma set_of _ordinal_pairs_relation : forall z, 
set_of _ordinal_pairs z -> is_relation z. 

Lemma set_of _ordinals_domain : forall z, 
set_of _ordinal_pairs z -> 
set_of _ordinals (domain z) . 

Definition column z x:= 

range (Z z (fun y => prl y = x)). 

Lemma inc_column : forall z x y, 
is_relation z -> 

inc y (column z x) = inc (pair x y) z. 

Lemma set_of _ordinals_column : forall z x, 

set_of _ordinal_pairs z -> set_of _ordinals (column z x) . 

Lemma nonempty _domain : forall z, 
nonempty z -> nonempty (domain z) . 

Lemma nonempty_column : forall z x, 
is_relation z -> 

inc x (domain z) -> nonempty (column z x) . 

Definition op_lex_least z := 
pair (least_ordinal (domain z)) 

(least_ordinal (column z (least_ordinal (domain z)))). 

Lemma is_ordinal_pair_op_lex_least : forall z, 
is_ordinal_pair (op_lex_least z) . 

Lemma inc_op_lex_least : forall z, 
set_of _ordinal_pairs z -> nonempty z -> 
inc (op_lex_least z) z. 

Lemma prl_op_lex_least : forall z, 

prl (op_lex_least z) = least_ordinal (domain z) . 

Lemma pr2_op_lex_least : forall z, 
pr2 (op_lex_least z) = 

least_ordinal (column z (least_ordinal (domain z))). 

Lemma op_lex_leq_op_lex_least : forall z y, 
set_of _ordinal_pairs z -> inc y z -> 
op_lex_leq (op_lex_least z) y. 
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Definition op_lex z := Drder_notation. create z op_lex_leq. 
Lemma U_op_lex : forall z, U (op_lex z) = z. 
Lemma leq_op_lex : forall z u v:E, 

leq (op_lex z) u v = (inc u z & inc v z & op_lex_leq u v) . 

Lemma op_lex_axioms : forall z:E, 

set_of _ordinal_pairs z -> 

Order. Definitions. axioms (op_lex z) . 

Lemma is_linear_op_lex : forall z:E, 
set_of _ordinal_pairs z -> 
is_linear (op_lex z) . 

Lemma is_well_ordered_op_lex : forall z, 
set_of _ordinal_pairs z -> 
is_well_ordered (op_lex z) . 

Definition prod_ref lexive z := 
are_isomorphic z (Cartesian. product z z) . 

Lemma prod_ref lexive_invariant : forall y z, 
are_isomorphic y z -> prod_ref lexive y -> prod_ref lexive z. 

Definition sub_prod_ref lexive z := 

forall y, sub y z -> is_infinite y -> prod_ref lexive y. 

Lemma sub_prod_ref lexive_rw : forall z, 
sub_prod_ref lexive z = 

(forall y, iso_sub y z -> is_infinite y -> prod_ref lexive y) . 

Lemma sub_prod_ref lexive_invariant : forall y z, 

iso_sub y z -> sub_prod_ref lexive z -> sub_prod_ref lexive y. 

Lemma sub_prod_reflexive_prod_ref lexive : forall z, 
is_infinite z -> sub_prod_ref lexive z -> prod_ref lexive z. 

Lemma f inite_sub_prod_ref lexive : forall z, 
is_finite z -> sub_prod_ref lexive z. 

Definition op_triangle z := 

Z (Cartesian. product z z) (fun y => (ordinal_leq (pr2 y) (prl y))). 

Lemma inc_op_triangle : forall y z, 
is_ordinal z -> inc y (op_triangle z) = 
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(is_ordinal_pair y & ordinal_lt (prl y) z & 
ordinal_leq (pr2 y) (prl y) ) . 

Lemma set_of _ordinal_pairs_op_triangle : forall z, 
is_ordinal z -> set_of _ordinal_pairs (op_triangle z) . 

Lemma iso_sub_op_triangle : forall z, 
is_ordinal z -> iso_sub z (op_triangle z) . 

Lemma sub_op_triangle_product : forall z, 
sub (op_triangle z) (product z z) . 

Lemma same_cardinality_op_triangle : forall z, 
is_infinite z -> is_ordinal z -> sub_prod_ref lexive z -> 
cardinality (op_triangle z) = cardinality z. 

Lemma op_triangle_sub : forall y z, 

sub y z -> sub (op_triangle y) (op_triangle z) . 

Definition op_triangle_lex z := op_lex (op_triangle z) . 

Lemma U_op_triangle_lex : forall z, 
U (op_triangle_lex z) = op_triangle z. 

Lemma leq_op_triangle_lex : forall z u v, 

leq (op_triangle_lex z) u v = (inc u (op_triangle z) & 

inc v (op_triangle z) & op_lex_leq u v) . 

Lemma is_well_ordered_op_triangle_lex : forall z, 
is_ordinal z -> is_well_ordered (op_triangle_lex z) . 

Definition is_cardinal z := 
cardinality z = z. 

Lemma is_cardinal_rw : forall z, 

is_cardinal z = (is_ordinal z & (forall y, ordinal_lt y z -> 
ordinal_lt (cardinality y) (cardinality z))). 

Lemma is_cardinal_rw2 : forall z, 

is_cardinal z = (is_ordinal z & (forall y, is_ordinal y -> 
iso_sub z y -> ordinal_leq z y)). 

Lemma is_cardinal_cardinality : forall z, 
is_cardinal (cardinality z) . 

Lemma inf inite_cardinality_tack_on : forall x y, 
is_infinite x -> cardinality (tack_on x y) = cardinality x. 
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Lemma cardinality_lt_ordinal_lt : forall y z, 
is_ordinal y -> is_ordinal z -> 

ordinal_lt (cardinality y) (cardinality z) -> ordinal_lt y z. 

Lemma ord_card_leq_criterion : forall y z, 
is_ordinal y -> is_cardinal z -> 

(forall x, inc x y -> ordinal_lt x z) -> 
ordinal_leq y z. 

Lemma inc_punctured_downward_subset : forall a x y, 

Order. Definitions. axioms a -> inc x (U a) -> 

inc y (punctured_downward_subset ax) = It a y x. 

Lemma punctured_downward_subset_wo_avatar : forall a x, 
is_well_ordered a -> inc x (U a) -> 

Transf ormation.bijective (punctured_downward_subset a x) 
(wo_avatar a x) (wo_avatar a) . 

Lemma cardinality_punctured_downward_subset : forall a x, 
is_well_ordered a -> inc x (U a) -> 
(cardinality (punctured_downward_subset a x) = 
cardinality (wo_avatar ax)). 

Lemma card_leq_criterion : forall a z, 
is_well_ordered a -> is_cardinal z -> 
(forall x, inc x (U a) -> 

ordinal_lt (cardinality (punctured_downward_subset ax)) z) -> 
ordinal_leq (cardinality (U a)) z. 

Lemma sub_punctured_downward_cone_op_triangle : forall y z, 
is_ordinal z -> inc y (op_triangle z) -> 
sub (punctured_downward_subset (op_triangle_lex z) y) 
(op_triangle (tack_on (prl y) (prl y))). 

Definition sub_prod_ref lexive_below z := 
is_cardinal z & is_infinite z & 

(forall y, ordinal_lt y z -> sub_prod_ref lexive y) . 

Lemma ordinal_leq_lt_trans : forall x y, 

(exists z, (ordinal_leq x z & ordinal_lt z y)) -> 

ordinal_lt x y. 

Lemma is_f inite_union2 : forall a b, is_finite a -> 
is_f inite b -> is_f inite (union2 a b) . 
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Lemma product_singleton_isomorphic : forall a x, 
are_isomorphic a (product a (singleton x) ) . 

Lemma is_f inite_product : forall a b, 

is_f inite a -> is_f inite b -> is_f inite (product a b) . 

Lemma inf inite_tack_on_isomorphic : forall z x, 
is_inf inite z -> are_isomorphic z (tack_on z x) . 

Lemma sprb_op_triangle_leq : forall z, 

sub_prod_ref lexive_below z -> 

ordinal_leq (cardinality (op_triangle z)) z. 

Lemma inc_tack_on_inf inite_cardinal : forall z x, 

is_cardinal z -> is_inf inite z -> inc x z -> inc (tack_on x x) z. 

Lemma tack_on_injective : forall a b, 
is_ordinal a -> is_ordinal b -> 
tack_on a a = tack_on b b -> a = b. 

Lemma iso_sub_double_op_triangle : forall z, 

is_cardinal z -> is_infinite z -> 

iso_sub (product z (R 2)) (op_triangle z) . 

Lemma f inite_ordinal_cardinal : forall x, 
is_ordinal x -> is_f inite x -> is_cardinal x. 

Lemma ordinal_lt_finite_inf inite : forall x y, 
is_ordinal x -> is_ordinal y -> is_finite x 
-> is_inf inite y -> ordinal_lt x y. 

Lemma dumb_sub_product : forall z, 
is_ordinal z -> is_infinite z -> 
sub (product z (R 2)) (product z z) . 

Definition lim_sprb z := 

sub_prod_ref lexive_below (cardinality z) \/ 
sub_prod_ref lexive z . 

Lemma cardinality_double : forall z, 
is_ordinal z -> is_infinite z -> 
lim_sprb z -> 

cardinality (product z (R 2)) = cardinality z. 
Lemma cardinal_leq_image : forall z f, 

ordinal_leq (cardinality (Image . create z f)) (cardinality z) . 
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Lemma cardinal_leq_iso_sub : forall a b, 
ordinal_leq (cardinality a) (cardinality b) -> 
iso_sub a b. 



Lemma ordinal_leq_cardinality_union2_double : forall a b z. 
ordinal_leq (cardinality a) (cardinality z) -> 
ordinal_leq (cardinality b) (cardinality z) -> 
ordinal_leq (cardinality (union2 a b)) 
(cardinality (product z (R 2))). 

Lemma lim_sprb_cardinal_union2 : forall a b z, 
lim_sprb z -> is_infinite z -> 
ordinal_leq (cardinality a) (cardinality z) -> 
ordinal_leq (cardinality b) (cardinality z) -> 
ordinal_leq (cardinality (union2 a b)) (cardinality z) . 

Definition reflect_pair x := pair (pr2 x) (prl x) . 



Definition ref lected_op_triangle z : 
Image. create (op_triangle z) reflect 



e z : = 

,_pair . 



Lemma cardinal_leq_ref lected_op_triangle : forall z, 
ordinal_leq (cardinality (ref lected_op_triangle z)) 
(cardinality (op_triangle z)). 

Lemma inc_ordinal_prod_itself _or : forall z x, 

is_ordinal z -> 

inc x (product z z) = 

(inc x (op_triangle z) \/ inc x (ref lected_op_triangle z)). 

Lemma ordinal_prod_itself _decomposition : forall z, 
is_ordinal z -> 

product z z = union2 (op_triangle z) (ref lected_op_triangle z) 

Lemma lim_sprb_cardinal_product : forall z, 
lim_sprb z -> is_infinite z -> 

ordinal_leq (cardinality (product z z)) (cardinality z) . 

Lemma lim_sprb_sub_prod_ref lexive : forall z, 
lim_sprb z -> sub_prod_ref lexive z. 

Lemma ordinal_lt_leq_trans : forall x z, 
(exists y, ordinal_lt x y & ordinal_leq y z) -> 
ordinal_lt x z. 

Lemma all_ordinals_sub_prod_ref lexive : forall z, 
is_ordinal z -> sub_prod_ref lexive z. 
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Lemma all_sub_prod_ref lexive : forall z, 
sub_prod_ref lexive z. 

Lemma are_isomorphic_product : forall z, 

is_inf inite z -> are_isomorphic z (product z z) . 

Lemma cardinal ity_product_inf inite : forall z, 

is_inf inite z -> cardinality (product z z) = cardinality z. 

Lemma cardinality_union2_inf inite : forall a b z, 
is_infinite z -> 

ordinal_leq (cardinality a) (cardinality z) -> 
ordinal_leq (cardinality b) (cardinality z) -> 
ordinal_leq (cardinality (union2 a b)) (cardinality z) . 

Lemma iso_sub_union2 : forall a b z, 
is_infinite z -> iso_sub a z ->iso_sub b z -> 
iso_sub (union2 a b) z. 

Lemma russell : forall z, ~(iso_sub (powerset z) z) . 

Lemma cardinal_lt_powerset : forall z, 

ordinal_lt (cardinality z) (cardinality (powerset z)). 

End Infinite. 
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